r58656 - in /branches/upstream/libaudio-wav-perl/current: Changes META.yml Makefile.PL TODO Wav.pm Wav/Read.pm Wav/Tools.pm Wav/Write.pm Wav/Write/Header.pm
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sun May 30 19:04:52 UTC 2010
Author: jawnsy-guest
Date: Sun May 30 19:04:28 2010
New Revision: 58656
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=58656
Log:
[svn-upgrade] Integrating new upstream version, libaudio-wav-perl (0.12)
Modified:
branches/upstream/libaudio-wav-perl/current/Changes
branches/upstream/libaudio-wav-perl/current/META.yml
branches/upstream/libaudio-wav-perl/current/Makefile.PL
branches/upstream/libaudio-wav-perl/current/TODO
branches/upstream/libaudio-wav-perl/current/Wav.pm
branches/upstream/libaudio-wav-perl/current/Wav/Read.pm
branches/upstream/libaudio-wav-perl/current/Wav/Tools.pm
branches/upstream/libaudio-wav-perl/current/Wav/Write.pm
branches/upstream/libaudio-wav-perl/current/Wav/Write/Header.pm
Modified: branches/upstream/libaudio-wav-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-wav-perl/current/Changes?rev=58656&op=diff
==============================================================================
--- branches/upstream/libaudio-wav-perl/current/Changes (original)
+++ branches/upstream/libaudio-wav-perl/current/Changes Sun May 30 19:04:28 2010
@@ -1,10 +1,20 @@
Revision history for Perl extension Audio::Wav.
+
+0.12 Sun May 30 08:45:03 GMT 2010
+ - don't use values > MAXINT. +2147483648 is not a valid unsigned
+ int32 (it's MAXINT+1). while we're at it, put all constants in
+ the XS in hex format for clarity. possibly fixes:
+ http://www.cpantesters.org/cpan/report/6945385
+ - fall back to pureperl when Inline::C is installed but not functional
+ as reported by Michel Lanne.
0.11 Fri Mar 12 04:12:44 GMT 2010
- fix two bugs triggered with inline on win32 - one related to assuming
C99 support and one related to lack of stdint.h or equivalent. tested
with strawberry perl, should work with msvc too. bug report here:
- http://www.cpantesters.org/cpan/report/6920668
+ http://www.cpantesters.org/cpan/report/6920668
+ same smoker reports tests with 0.11 here:
+ http://www.cpantesters.org/cpan/report/6930825
0.10 Sun Feb 14 04:09:00 GMT 2010
- add COPYRIGHT information for debian folks
Modified: branches/upstream/libaudio-wav-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-wav-perl/current/META.yml?rev=58656&op=diff
==============================================================================
--- branches/upstream/libaudio-wav-perl/current/META.yml (original)
+++ branches/upstream/libaudio-wav-perl/current/META.yml Sun May 30 19:04:28 2010
@@ -1,18 +1,20 @@
--- #YAML:1.0
name: Audio-Wav
-version: 0.11
+version: 0.12
abstract: ~
author: []
license: unknown
distribution_type: module
configure_requires:
ExtUtils::MakeMaker: 0
+build_requires:
+ ExtUtils::MakeMaker: 0
requires: {}
no_index:
directory:
- t
- inc
-generated_by: ExtUtils::MakeMaker version 6.48
+generated_by: ExtUtils::MakeMaker version 6.55_02
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: 1.4
Modified: branches/upstream/libaudio-wav-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-wav-perl/current/Makefile.PL?rev=58656&op=diff
==============================================================================
--- branches/upstream/libaudio-wav-perl/current/Makefile.PL (original)
+++ branches/upstream/libaudio-wav-perl/current/Makefile.PL Sun May 30 19:04:28 2010
@@ -1,7 +1,8 @@
use ExtUtils::MakeMaker;
-# See lib/ExtUtils/MakeMaker.pm for details of how to influence
-# the contents of the Makefile that is written.
-WriteMakefile(
- 'NAME' => 'Audio::Wav',
- 'VERSION_FROM' => 'Wav.pm', # finds $VERSION
+
+my %makefile = (
+ NAME => 'Audio::Wav',
+ VERSION_FROM => 'Wav.pm', # finds $VERSION
);
+WriteMakefile(%makefile);
+
Modified: branches/upstream/libaudio-wav-perl/current/TODO
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-wav-perl/current/TODO?rev=58656&op=diff
==============================================================================
--- branches/upstream/libaudio-wav-perl/current/TODO (original)
+++ branches/upstream/libaudio-wav-perl/current/TODO Sun May 30 19:04:28 2010
@@ -1,31 +1,7 @@
-- int32_t/uint32_t/int16_t/int8_t not found on win32 - just use stdint.h?
- or inttypes.h (only if on win32)
- (02:11:21 AM) brianski: is there an equivalent to unit8_t, uint32_t, etc. on windows?
- (02:16:30 AM) brianski: i have a perl module with some inline C code, and the ms c compiler is complaining about not grokking uint8_t, etc.
- (02:17:04 AM) zen_: brianski: do you have an inttypes.h included?
- (02:17:58 AM) brianski: zen_: dunno, don't have access to the build setup on that machine - someone else did it and reported the error
- (02:18:12 AM) brianski: err oh in my code. isn't inttypes.h relatively new (C99) ?
- (02:18:34 AM) brianski: i suppose i could do #ifdef win32 \n #include inttypes.h \n #endif
- (02:18:46 AM) twkm: brianski: indeed.
- (02:20:43 AM) brianski: anyone know offhand if inttypes.h well established enough on windows that i can compile on XP ?
- (02:21:03 AM) twkm: doesn't exist at all on windows.
- (02:21:37 AM) Zhivago: Well, msvc doesn't support C99.
- (02:21:43 AM) Zhivago: You could use gcc under windows, I guess.
- (02:22:28 AM) brianski: twkm: eh?
- (02:24:00 AM) brianski: i think i missed something -- i didn't #include <inttypes.h> at all - does win32 have a <stdint.h> ? and/or is there a way to get similar functionality?
- (02:24:52 AM) brianski: also, i read somewhere that i can get a free ms c compiler? anyone know where i should look for that?
- (02:25:17 AM) twkm: brianski: you might replace uint8_t with a type that is present.
- (02:25:47 AM) brianski: twkm: oh i misread what zen_ said, i thought he was saying those types did exist on win32
- (02:26:26 AM) zen_: an implementation using win32 as an environment may have inttypes.h
- (02:26:41 AM) zen_: Like mingw/gcc, as Zhivago said.
- (02:26:43 AM) twkm: the default implementation for ms windows does not.
- (02:26:43 AM) brianski: i see so something like this should work for me: http://msinttypes.googlecode.com/svn/trunk/stdint.h
- (02:26:54 AM) zen_: twkm: what's the default implementation?
- (02:27:11 AM) brianski: zen_: yeah, i dont control what compiler people use to try my code unfortunately -- ideally it should work with msvc and gcc
- (02:27:13 AM) twkm: *chortles -- you can add a header, but not replace a type with something less annoying.*
- (02:27:36 AM) twkm: zen_: you would assert it is not msvc?
+- re: 0x80000000 bug: can reproduce warning using 32 bit cc
- more 24 and 32 bit testing
- add test cases for 24 and 32 bit reads (remember to check pp and C)
- check inline::c 24/32 bit reads on big endian platforms
- optimize Wav/Write as was done for Wav/Read - use _init_write_sub() first,
then Inline::C
+- use XS instead of Inline for portability?
Modified: branches/upstream/libaudio-wav-perl/current/Wav.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-wav-perl/current/Wav.pm?rev=58656&op=diff
==============================================================================
--- branches/upstream/libaudio-wav-perl/current/Wav.pm (original)
+++ branches/upstream/libaudio-wav-perl/current/Wav.pm Sun May 30 19:04:28 2010
@@ -6,15 +6,27 @@
use Audio::Wav::Tools;
use vars qw( $VERSION );
-$VERSION = '0.11';
+$VERSION = '0.12';
BEGIN {
+
eval { require Inline::C };
if($@) {
$Audio::Wav::_has_inline = 0;
} else {
- $Audio::Wav::_has_inline = 1;
- }
+ # Inline::C is confused with multiple import calls - it seems to
+ # result in errors about @INC. hack around this by launching a
+ # seperate process instead of simply checking $@ after:
+ # eval { Inline->import(C => "int foo() { return 0; }\n"); };
+ my $inline_c_ok = `$^X -e "require Inline::C; eval { Inline->import(C => q[int foo() { return 0; }]) }; print \\\$\@ ? 0 : 1"`;
+ if($inline_c_ok) {
+ $Audio::Wav::_has_inline = 1;
+ } else {
+ warn "Inline::C installed, but your C compiler doesn't seem to work with it\n";
+ $Audio::Wav::_has_inline = 0;
+ }
+ }
+
}
=head1 NAME
@@ -216,7 +228,7 @@
=head1 AUTHORS
Nick Peskett (see http://www.peskett.co.uk/ for contact details).
- Brian Szymanski <ski-cpan at allafrica.com> (0.07-0.11)
+ Brian Szymanski <ski-cpan at allafrica.com> (0.07-0.12)
Wolfram humann (pureperl 24 and 32 bit read support in 0.09)
Kurt George Gjerde <kurt.gjerde at media.uib.no>. (0.02-0.03)
Modified: branches/upstream/libaudio-wav-perl/current/Wav/Read.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-wav-perl/current/Wav/Read.pm?rev=58656&op=diff
==============================================================================
--- branches/upstream/libaudio-wav-perl/current/Wav/Read.pm (original)
+++ branches/upstream/libaudio-wav-perl/current/Wav/Read.pm Sun May 30 19:04:28 2010
@@ -6,7 +6,7 @@
use FileHandle;
use vars qw( $VERSION );
-$VERSION = '0.11';
+$VERSION = '0.12';
=head1 NAME
@@ -743,7 +743,7 @@
=head1 AUTHORS
Nick Peskett (see http://www.peskett.co.uk/ for contact details).
- Brian Szymanski <ski-cpan at allafrica.com> (0.07-0.11)
+ Brian Szymanski <ski-cpan at allafrica.com> (0.07-0.12)
Wolfram humann (pureperl 24 and 32 bit read support in 0.09)
Kurt George Gjerde <kurt.gjerde at media.uib.no>. (0.02-0.03)
@@ -834,7 +834,7 @@
}
s = is_signed ?
*((int32_t *)buf) :
- *((uint32_t *)buf)-2147483648;
+ *((uint32_t *)buf) - 0x7fffffff - 1;
break;
case 3:
//TODO: test this!
@@ -850,20 +850,20 @@
}
} else {
//we *always* return signed data
- s -= 8388608;
+ s += -0x800000;
}
break;
case 2:
if(big_end) { s = buf[0]; buf[0] = buf[1]; buf[1] = s; }
s = is_signed ?
*((int16_t *)buf) :
- *((uint16_t *)buf)-32768;
+ *((uint16_t *)buf) + -0x8000;
break;
case 1:
//note: Audio::Wav *always* returns signed data
s = is_signed ?
*((int8_t *)buf) :
- *((uint8_t *)buf)-128;
+ *((uint8_t *)buf) + -0x80;
break;
}
sv_setiv(retvals[i], s);
Modified: branches/upstream/libaudio-wav-perl/current/Wav/Tools.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-wav-perl/current/Wav/Tools.pm?rev=58656&op=diff
==============================================================================
--- branches/upstream/libaudio-wav-perl/current/Wav/Tools.pm (original)
+++ branches/upstream/libaudio-wav-perl/current/Wav/Tools.pm Sun May 30 19:04:28 2010
@@ -4,7 +4,7 @@
eval { require warnings; }; #it's ok if we can't load warnings
use vars qw( $VERSION );
-$VERSION = '0.11';
+$VERSION = '0.12';
sub new {
my ($class, %options) = @_;
Modified: branches/upstream/libaudio-wav-perl/current/Wav/Write.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-wav-perl/current/Wav/Write.pm?rev=58656&op=diff
==============================================================================
--- branches/upstream/libaudio-wav-perl/current/Wav/Write.pm (original)
+++ branches/upstream/libaudio-wav-perl/current/Wav/Write.pm Sun May 30 19:04:28 2010
@@ -7,7 +7,7 @@
use Audio::Wav::Write::Header;
use vars qw( $VERSION );
-$VERSION = '0.11';
+$VERSION = '0.12';
=head1 NAME
Modified: branches/upstream/libaudio-wav-perl/current/Wav/Write/Header.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-wav-perl/current/Wav/Write/Header.pm?rev=58656&op=diff
==============================================================================
--- branches/upstream/libaudio-wav-perl/current/Wav/Write/Header.pm (original)
+++ branches/upstream/libaudio-wav-perl/current/Wav/Write/Header.pm Sun May 30 19:04:28 2010
@@ -4,7 +4,7 @@
eval { require warnings; }; #it's ok if we can't load warnings
use vars qw( $VERSION );
-$VERSION = '0.11';
+$VERSION = '0.12';
sub new {
my ($class, $file, $details, $tools, $handle) = @_;
More information about the Pkg-perl-cvs-commits
mailing list