[packages/perl-Audio] - rediff patches

[baggins]

commit 8d442bc34693b9367fe7eb4d093be6ba17235288
Author: Jan Rękorajski <baggins at pld-linux.org>
Date:   Fri May 7 23:14:12 2021 +0200

    - rediff patches

 perl-Audio-nas-fix.patch      | 28 +++++++++++++++-------------
 perl-Audio-perl_version.patch | 18 ++++++++++--------
 2 files changed, 25 insertions(+), 21 deletions(-)
---
diff --git a/perl-Audio-nas-fix.patch b/perl-Audio-nas-fix.patch
index 55f4594..45e3620 100644
--- a/perl-Audio-nas-fix.patch
+++ b/perl-Audio-nas-fix.patch
@@ -1,16 +1,7 @@
---- Audio-0.005/Play/Net/Net.xs.orig	Wed Aug  4 19:03:49 1999
-+++ Audio-0.005/Play/Net/Net.xs	Sun Aug  4 11:07:20 2002
-@@ -67,6 +67,7 @@
-  int priv = 0;
-  AuEvent ev;
-  STRLEN samp = Audio_samples(au);
-+ STRLEN na;
-  Sound s = SoundCreate(SoundFileFormatNone,
-                        little_endian ? AuFormatLinearSigned16LSB : AuFormatLinearSigned16MSB,
-                        1, au->rate, samp, SvPV(au->comment,na)); 
---- Audio-0.005/Play/Net/Makefile.PL.orig	Wed Aug  4 19:03:49 1999
-+++ Audio-0.005/Play/Net/Makefile.PL	Sun Aug  4 11:59:39 2002
-@@ -18,7 +18,7 @@
+diff -urNp -x '*.orig' Audio-1.029.org/Play/Net/Makefile.PL Audio-1.029/Play/Net/Makefile.PL
+--- Audio-1.029.org/Play/Net/Makefile.PL	2003-08-05 21:18:56.000000000 +0200
++++ Audio-1.029/Play/Net/Makefile.PL	2021-05-07 23:13:40.859600570 +0200
+@@ -18,7 +18,7 @@ if (try_compile("-c ../config/Net.c"))
   {
    WriteMakefile(
        'NAME'     => 'Audio::Play::Net',
@@ -19,3 +10,14 @@
        'INC'      => q[-I/usr/X11R6/include],
        'clean'    => {FILES => "*% *.bak"},
        'OBJECT'   => '$(O_FILES)',
+diff -urNp -x '*.orig' Audio-1.029.org/Play/Net/Net.xs Audio-1.029/Play/Net/Net.xs
+--- Audio-1.029.org/Play/Net/Net.xs	2003-08-05 21:18:56.000000000 +0200
++++ Audio-1.029/Play/Net/Net.xs	2021-05-07 23:13:40.859600570 +0200
+@@ -67,6 +67,7 @@ AuPlay(AuServer *aud, Audio *au, float v
+  int priv = 0;
+  AuEvent ev;
+  STRLEN samp = Audio_samples(au);
++ STRLEN na;
+  Sound s = SoundCreate(SoundFileFormatNone,
+                        little_endian ? AuFormatLinearSigned16LSB : AuFormatLinearSigned16MSB,
+                        1, au->rate, samp, SvPV_nolen(au->comment)); 
diff --git a/perl-Audio-perl_version.patch b/perl-Audio-perl_version.patch
index e710c2d..80a65f8 100644
--- a/perl-Audio-perl_version.patch
+++ b/perl-Audio-perl_version.patch
@@ -1,16 +1,18 @@
---- Audio-0.005/Data/Data.pm.orig	Sun Aug  4 21:29:03 2002
-+++ Audio-0.005/Data/Data.pm	Sun Aug  4 21:29:21 2002
-@@ -1,7 +1,7 @@
- package Audio::Data;
+diff -urNp -x '*.orig' Audio-1.029.org/Data/Data.pm Audio-1.029/Data/Data.pm
+--- Audio-1.029.org/Data/Data.pm	2004-06-02 20:46:25.000000000 +0200
++++ Audio-1.029/Data/Data.pm	2021-05-07 23:13:40.926268154 +0200
+@@ -7,7 +7,7 @@ our @EXPORT_OK = qw(solve_polynomial);
+ sub solve_polynomial;
  
  # PerlIO calls used in .xs code
 -require 5.00302;
 +require 5.003_02;  
  
- require DynaLoader;
- @ISA = qw(DynaLoader);
---- Audio-0.005/Play/Net/Net.pm.orig	Sun Aug  4 21:38:01 2002
-+++ Audio-0.005/Play/Net/Net.pm	Sun Aug  4 21:38:05 2002
+ use XSLoader;
+ our $VERSION = sprintf '1.%03d', (q$Revision: #14 $ =~ /\D(\d+)\s*$/)[0] + 15;
+diff -urNp -x '*.orig' Audio-1.029.org/Play/Net/Net.pm Audio-1.029/Play/Net/Net.pm
+--- Audio-1.029.org/Play/Net/Net.pm	2003-08-05 21:18:56.000000000 +0200
++++ Audio-1.029/Play/Net/Net.pm	2021-05-07 23:13:40.926268154 +0200
 @@ -1,6 +1,6 @@
  package Audio::Play::Net;
  # PerlIO calls used in .xs code
================================================================

---- gitweb:

http://git.pld-linux.org/gitweb.cgi/packages/perl-Audio.git/commitdiff/8d442bc34693b9367fe7eb4d093be6ba17235288