Bug #34475 for Audio-FindChunks: Huge (>1GB) tmp.wav Created by t/Audio-FindChunks.t

Thu Mar 27 11:10:45 2008 imacat [...] cpan.org - Ticket created

Subject:

Huge (>1GB) tmp.wav Created by t/Audio-FindChunks.t

Dear Ilya Zakharevich, Hi. This is imacat from Taiwan. I found that, if Perl is compiled with -Duselongdouble, when doing "make test" with Audio-FindChunks-0.03, t/Audio-FindChunks.t produces a huge (>1GB) tmp.wav which increased its size endlessly. I do not know whether it will stop by itself, but I stop it when it reached 1GB. This is true on my Linux 2.6, both i386 and x86_64. However, if Perl is compiled without -Duselongdouble, the test suite fails but no huge file was created. Is this normal? Maybe you can look into it. Please tell me if you need any information, or if I can be of any help. Thank you.

Fri Mar 28 19:46:58 2008 nospam-abuse [...] ilyaz.org - Correspondence added

CC:	undisclosed-recipients: ;
Subject:	Re: [rt.cpan.org #34475] Huge (>1GB) tmp.wav Created by t/Audio-FindChunks.t
Date:	Fri, 28 Mar 2008 16:46:34 -0700
To:	Yi Ma Mao via RT <bug-Audio-FindChunks [...] rt.cpan.org>
From:	Ilya Zakharevich <nospam-abuse [...] ilyaz.org>

On Thu, Mar 27, 2008 at 11:10:47AM -0400, Yi Ma Mao via RT wrote: Show quoted text

> > Thu Mar 27 11:10:45 2008: Request 34475 was acted upon. > Transaction: Ticket created by IMACAT > Queue: Audio-FindChunks > Subject: Huge (>1GB) tmp.wav Created by t/Audio-FindChunks.t > Broken in: 0.03 > Severity: Critical > Owner: Nobody > Requestors: imacat@mail.imacat.idv.tw > Status: new > Ticket <URL: http://rt.cpan.org/Ticket/Display.html?id=34475 > > > > Dear Ilya Zakharevich, > > Hi. This is imacat from Taiwan. I found that, if Perl is compiled > with -Duselongdouble, when doing "make test" with Audio-FindChunks-0.03, > t/Audio-FindChunks.t produces a huge (>1GB) tmp.wav which increased its > size endlessly. I do not know whether it will stop by itself, but I > stop it when it reached 1GB. This is true on my Linux 2.6, both i386 > and x86_64. However, if Perl is compiled without -Duselongdouble, the > test suite fails but no huge file was created. > > Is this normal? Maybe you can look into it. > > Please tell me if you need any information, or if I can be of any > help. Thank you.

Could you try the attached patch, remove tmp.rms, and rerun the test? What I see is Printing out 220500 samples. Printing out 882000 samples. Printing out 39690 samples. Printing out 13230 samples. Printing out 39690 samples. Printing out 13230 samples. Printing out 39690 samples. Printing out 480690 samples. Printing out 39690 samples. Printing out 13230 samples. Printing out 39690 samples. Printing out 1098090 samples. Printing out 132300 samples. Thanks, Ilya ======================================================= --- ./t/Audio-FindChunks.t Tue Feb 20 15:10:14 2007 +++ ./t/Audio-FindChunks.t-vv Fri Mar 28 16:48:10 2008 @@ -19,6 +19,7 @@ ok(1); # If we made it this far, we're o my $pi2 = 2*atan2(0, -1); sub write_sine ($$$$$) { my ($fh, $samples, $freq, $ampl, $phase) = @_; + print STDERR "Printing out $samples samples.\n"; while ($samples--) { my $v = sin($phase) * $ampl; $phase += $freq * $pi2;

Fri Mar 28 19:46:59 2008 The RT System itself - Status changed from 'new' to 'open'

Sat Mar 29 02:31:04 2008 imacat [...] cpan.org - Correspondence added

On 2008-03-28 19:46:58 Fri, nospam-abuse@ilyaz.org wrote: Show quoted text

> On Thu, Mar 27, 2008 at 11:10:47AM -0400, Yi Ma Mao via RT wrote:

> > t/Audio-FindChunks.t produces a huge (>1GB) tmp.wav which increased its

> Could you try the attached patch, remove tmp.rms, and rerun the test?

The "make test" paused after the first "Printing out 13230 samples.", and the size of tmp.wav grows endlessly as before. imacat@rinse /tmp/Audio-FindChunks-0.04 % perl Makefile.PL Checking if your kit is complete... Looks good Writing Makefile for Audio::FindChunks imacat@rinse /tmp/Audio-FindChunks-0.04 % make cp FindChunks.pm blib/lib/Audio/FindChunks.pm In file included from FindChunks.xs:5: ppport.h:230:1: warning: "PERL_UNUSED_DECL" redefined In file included from FindChunks.xs:2: /usr/lib/perl5/5.8.8/x86_64-linux-thread-multi-ld/CORE/perl.h:163:1: warning: this is the location of the previous definition Running Mkbootstrap for Audio::FindChunks () Manifying blib/man3/Audio::FindChunks.3 imacat@rinse /tmp/Audio-FindChunks-0.04 % make test t/Audio-FindChunks......1/30 Printing out 220500 samples. Printing out 882000 samples. Printing out 39690 samples. Printing out 13230 samples. make: *** wait: No child processes. Stop. make: *** Waiting for unfinished jobs.... make: *** wait: No child processes. Stop. imacat@rinse /tmp/Audio-FindChunks-0.04 % ls -l tmp.wav -rw-r--r-- 1 imacat users 108093440 Mar 29 14:30 tmp.wav imacat@rinse /tmp/Audio-FindChunks-0.04 %

Sat Mar 29 03:31:02 2008 nospam-abuse [...] ilyaz.org - Correspondence added

CC:	undisclosed-recipients: ;
Subject:	Re: [rt.cpan.org #34475] Huge (>1GB) tmp.wav Created by t/Audio-FindChunks.t
Date:	Sat, 29 Mar 2008 00:30:46 -0700
To:	Yi Ma Mao via RT <bug-Audio-FindChunks [...] rt.cpan.org>
From:	Ilya Zakharevich <nospam-abuse [...] ilyaz.org>

On Sat, Mar 29, 2008 at 02:31:07AM -0400, Yi Ma Mao via RT wrote: Show quoted text

> > Queue: Audio-FindChunks > Ticket <URL: http://rt.cpan.org/Ticket/Display.html?id=34475 > > > On 2008-03-28 19:46:58 Fri, nospam-abuse@ilyaz.org wrote:

> > On Thu, Mar 27, 2008 at 11:10:47AM -0400, Yi Ma Mao via RT wrote:

> > > t/Audio-FindChunks.t produces a huge (>1GB) tmp.wav which increased its

> > Could you try the attached patch, remove tmp.rms, and rerun the test?

> > The "make test" paused after the first "Printing out 13230 > samples.", and the size of tmp.wav grows endlessly as before.

Silly me! Yet another floating-point bug in just 2 months! I do $c 44100 * 0.9, then do while (--$c) on it... :-( Could you change while ($samples--) { to while ($samples-- >= 0) { in write_sine() in t/Audio-FindChunks.t and retry? Thanks, Ilya

Sat Mar 29 04:27:11 2008 imacat [...] cpan.org - Correspondence added

On 2008-03-29 03:31:02 Sat, nospam-abuse@ilyaz.org wrote: Show quoted text

> On Sat, Mar 29, 2008 at 02:31:07AM -0400, Yi Ma Mao via RT wrote: > while ($samples-- >= 0) { > in write_sine() in t/Audio-FindChunks.t and retry?

This works, as it did not create a infinitely-growing tmp.wav anymore. However, the test result still fails. I attached the test result below, and the blocks1.tmp and blocks2.tmp files. Hope that this helps. Please tell me if you have any question, or if I could be of any help. Thank you. imacat@rinse /tmp % tar xzf Audio-FindChunks-0.04-try.tar.gz imacat@rinse /tmp % cd Audio-FindChunks-0.04 imacat@rinse /tmp/Audio-FindChunks-0.04 % chmod +w t/Audio-FindChunks.t imacat@rinse /tmp/Audio-FindChunks-0.04 % nano t/Audio-FindChunks.t imacat@rinse /tmp/Audio-FindChunks-0.04 % perl Makefile.PL Checking if your kit is complete... Looks good Writing Makefile for Audio::FindChunks imacat@rinse /tmp/Audio-FindChunks-0.04 % make cp FindChunks.pm blib/lib/Audio/FindChunks.pm In file included from FindChunks.xs:5: ppport.h:230:1: warning: "PERL_UNUSED_DECL" redefined In file included from FindChunks.xs:2: /usr/lib/perl5/5.8.8/x86_64-linux-thread-multi-ld/CORE/perl.h:163:1: warning: this is the location of the previous definition Running Mkbootstrap for Audio::FindChunks () Manifying blib/man3/Audio::FindChunks.3 imacat@rinse /tmp/Audio-FindChunks-0.04 % make test t/Audio-FindChunks......4/30 # Test 9 got: "[0 0 47] [1 47 206] [0 253 3] [1 256 9] [0 265 3] [1 268 9] [0 277 3] [1 280 115] [0 395 3] [1 398 9] [0 407 3] [1 410 255] [0 665 28]" (t/Audio-FindChunks.t at line 89) # Expected: "[0 0 47] [1 47 206] [0 253 3] [1 256 9] [0 265 3] [1 268 9] [0 277 3] [1 280 115] [0 395 3] [1 398 9] [0 407 3] [1 410 255] [0 665 27]" (field b0) # t/Audio-FindChunks.t line 89 is: ok (str($ques[$q]), $ans[$q], "field $ques[$q]"); # Test 10 got: "[-1 0 47] [2 47 206] [0 253 3] [1 256 9] [0 265 3] [1 268 9] [0 277 3] [2 280 115] [0 395 3] [1 398 9] [0 407 3] [2 410 255] [-1 665 28]" (t/Audio-FindChunks.t at line 89 fail #2) # Expected: "[-1 0 47] [2 47 206] [0 253 3] [1 256 9] [0 265 3] [1 268 9] [0 277 3] [2 280 115] [0 395 3] [1 398 9] [0 407 3] [2 410 255] [-1 665 27]" (field b1) # Test 11 got: "[-1 0 47] [2 47 206] [0 253 27] [2 280 115] [0 395 15] [2 410 255] [-1 665 28]" (t/Audio-FindChunks.t at line 89 fail #3) # Expected: "[-1 0 47] [2 47 206] [0 253 27] [2 280 115] [0 395 15] [2 410 255] [-1 665 27]" (field b2) # Test 12 got: "[-1 0 47] [2 47 206] [-1 253 27] [2 280 115] [-1 395 15] [2 410 255] [-1 665 28]" (t/Audio-FindChunks.t at line 89 fail #4) # Expected: "[-1 0 47] [2 47 206] [-1 253 27] [2 280 115] [-1 395 15] [2 410 255] [-1 665 27]" (field b3) # Test 13 got: "[-1 0 47] [2 47 206] [-1 253 27] [2 280 115] [-1 395 15] [2 410 255] [-1 665 28]" (t/Audio-FindChunks.t at line 89 fail #5) # Expected: "[-1 0 47] [2 47 206] [-1 253 27] [2 280 115] [-1 395 15] [2 410 255] [-1 665 27]" (field b4) # Test 14 got: "[-1 0 44] [2 44 214] [-1 258 19] [2 277 393] [-1 670 23]" (t/Audio-FindChunks.t at line 89 fail #6) # Expected: "[-1 0 44] [2 44 214] [-1 258 19] [2 277 393] [-1 670 22]" (field b) # Test 23 got: "[0 0 47] [1 47 206] [0 253 3] [1 256 9] [0 265 3] [1 268 9] [0 277 3] [1 280 115] [0 395 3] [1 398 9] [0 407 3] [1 410 255] [0 665 28]" (t/Audio-FindChunks.t at line 89 fail #7) # Expected: "[0 0 47] [1 47 206] [0 253 3] [1 256 9] [0 265 3] [1 268 9] [0 277 3] [1 280 115] [0 395 3] [1 398 9] [0 407 3] [1 410 255] [0 665 27]" (field b0) # Test 24 got: "[-1 0 47] [2 47 206] [0 253 3] [1 256 9] [0 265 3] [1 268 9] [0 277 3] [2 280 115] [0 395 3] [1 398 9] [0 407 3] [2 410 255] [-1 665 28]" (t/Audio-FindChunks.t at line 89 fail #8) # Expected: "[-1 0 47] [2 47 206] [0 253 3] [1 256 9] [0 265 3] [1 268 9] [0 277 3] [2 280 115] [0 395 3] [1 398 9] [0 407 3] [2 410 255] [-1 665 27]" (field b1) # Test 25 got: "[-1 0 47] [2 47 206] [0 253 27] [2 280 115] [0 395 15] [2 410 255] [-1 665 28]" (t/Audio-FindChunks.t at line 89 fail #9) # Expected: "[-1 0 47] [2 47 206] [0 253 27] [2 280 115] [0 395 15] [2 410 255] [-1 665 27]" (field b2) # Test 26 got: "[-1 0 47] [2 47 206] [-1 253 27] [2 280 115] [-1 395 15] [2 410 255] [-1 665 28]" (t/Audio-FindChunks.t at line 89 fail #10) # Expected: "[-1 0 47] [2 47 206] [-1 253 27] [2 280 115] [-1 395 15] [2 410 255] [-1 665 27]" (field b3) # Test 27 got: "[-1 0 47] [2 47 206] [-1 253 27] [2 280 115] [-1 395 15] [2 410 255] [-1 665 28]" (t/Audio-FindChunks.t at line 89 fail #11) # Expected: "[-1 0 47] [2 47 206] [-1 253 27] [2 280 115] [-1 395 15] [2 410 255] [-1 665 27]" (field b4) # Test 28 got: "[-1 0 44] [2 44 214] [-1 258 19] [2 277 393] [-1 670 23]" (t/Audio-FindChunks.t at line 89 fail #12) # Expected: "[-1 0 44] [2 44 214] [-1 258 19] [2 277 393] [-1 670 22]" (field b) t/Audio-FindChunks...... Failed 12/30 subtests Test Summary Report ------------------- t/Audio-FindChunks.t (Wstat: 0 Tests: 30 Failed: 12) Failed tests: 9-14, 23-28 Files=1, Tests=30, 8 wallclock secs ( 0.02 usr 0.00 sys + 7.88 cusr 0.12 csys = 8.02 CPU) Result: FAIL Failed 1/1 test programs. 12/30 subtests failed. make: *** [test_dynamic] Error 255 imacat@rinse /tmp/Audio-FindChunks-0.04 %

Download blocks1.tmp
application/octet-stream 42.2k

Message body not shown because it is not plain text.

Download blocks2.tmp
application/octet-stream 42.1k

Message body not shown because it is not plain text.

Sat Mar 29 04:39:26 2008 nospam-abuse [...] ilyaz.org - Correspondence added

CC:	undisclosed-recipients: ;
Subject:	Re: [rt.cpan.org #34475] Huge (>1GB) tmp.wav Created by t/Audio-FindChunks.t
Date:	Sat, 29 Mar 2008 01:39:00 -0700
To:	Yi Ma Mao via RT <bug-Audio-FindChunks [...] rt.cpan.org>
From:	Ilya Zakharevich <nospam-abuse [...] ilyaz.org>

On Sat, Mar 29, 2008 at 04:27:14AM -0400, Yi Ma Mao via RT wrote: Show quoted text

> imacat@rinse /tmp/Audio-FindChunks-0.04 % make test > t/Audio-FindChunks......4/30 # Test 9 got: "[0 0 47] [1 47 206] [0 253 > 3] [1 256 9] [0 265 3] [1 268 9] [0 277 3] [1 280 115] [0 395 3] [1 398 > 9] [0 407 3] [1 410 255] [0 665 28]" (t/Audio-FindChunks.t at line 89) > # Expected: "[0 0 47] [1 47 206] [0 253 3] [1 256 9] [0 265 3] [1 268 > 9] [0 277 3] [1 280 115] [0 395 3] [1 398 9] [0 407 3] [1 410 255] [0 > 665 27]" (field b0)

This one is very easy to diagnoze. I'm doing all the rounding explicitly now, so it should produce the same results on all machines. Could you please try ilyaz.org/software/tmp/Audio-FindChunks-0.04-try1.tar.gz on all your machines? Thanks for your patience, Ilya

Sat Mar 29 12:01:40 2008 imacat [...] cpan.org - Correspondence added

On 2008-03-29 04:39:26 Sat, nospam-abuse@ilyaz.org wrote: Show quoted text

> On Sat, Mar 29, 2008 at 04:27:14AM -0400, Yi Ma Mao via RT wrote:

> > imacat@rinse /tmp/Audio-FindChunks-0.04 % make test

> ilyaz.org/software/tmp/Audio-FindChunks-0.04-try1.tar.gz > on all your machines?

This test failure is gone now. However, since you ask me to test on all my machines, I did an additional test on my i686. There is a new failure. I attached the logs below. The first part is the success on my x86_64. The second part is the failure on my i686. imacat@rinse /tmp % rm -rf Audio-FindChunks-0.04 imacat@rinse /tmp % tar xzf Audio-FindChunks-0.04-try1.tar.gz imacat@rinse /tmp % cd Audio-FindChunks-0.04 imacat@rinse /tmp/Audio-FindChunks-0.04 % perl Makefile.PL Checking if your kit is complete... Looks good Writing Makefile for Audio::FindChunks imacat@rinse /tmp/Audio-FindChunks-0.04 % make cp FindChunks.pm blib/lib/Audio/FindChunks.pm In file included from FindChunks.xs:5: ppport.h:230:1: warning: "PERL_UNUSED_DECL" redefined In file included from FindChunks.xs:2: /usr/lib/perl5/5.8.8/x86_64-linux-thread-multi-ld/CORE/perl.h:163:1: warning: this is the location of the previous definition Running Mkbootstrap for Audio::FindChunks () Manifying blib/man3/Audio::FindChunks.3 imacat@rinse /tmp/Audio-FindChunks-0.04 % make test t/Audio-FindChunks......ok All tests successful. Files=1, Tests=30, 8 wallclock secs ( 0.02 usr 0.00 sys + 7.78 cusr 0.08 csys = 7.88 CPU) Result: PASS imacat@rinse /tmp/Audio-FindChunks-0.04 % make distclean imacat@rinse /tmp/Audio-FindChunks-0.04 % /tmp/perl/bin/perl Makefile.PL Checking if your kit is complete... Looks good Writing Makefile for Audio::FindChunks imacat@rinse /tmp/Audio-FindChunks-0.04 % make cp FindChunks.pm blib/lib/Audio/FindChunks.pm In file included from FindChunks.xs:5: ppport.h:230:1: warning: "PERL_UNUSED_DECL" redefined In file included from FindChunks.xs:2: /tmp/perl/lib/5.8.8/x86_64-linux-thread-multi/CORE/perl.h:163:1: warning: this is the location of the previous definition Running Mkbootstrap for Audio::FindChunks () Manifying blib/man3/Audio::FindChunks.3 imacat@rinse /tmp/Audio-FindChunks-0.04 % make test t/Audio-FindChunks......ok All tests successful. Files=1, Tests=30, 8 wallclock secs ( 0.03 usr 0.00 sys + 7.23 cusr 0.10 csys = 7.36 CPU) Result: PASS imacat@rinse /tmp/Audio-FindChunks-0.04 % perl -v This is perl, v5.8.8 built for x86_64-linux-thread-multi-ld Copyright 1987-2006, Larry Wall Perl may be copied only under the terms of either the Artistic License or the GNU General Public License, which may be found in the Perl 5 source kit. Complete documentation for Perl, including FAQ lists, should be found on this system using "man perl" or "perldoc perl". If you have access to the Internet, point your browser at http://www.perl.org/, the Perl Home Page. imacat@rinse /tmp/Audio-FindChunks-0.04 % imacat@odin /tmp % rm -rf Audio-FindChunks-0.04 imacat@odin /tmp % tar xzf Audio-FindChunks-0.04-try1.tar.gz imacat@odin /tmp % cd Audio-FindChunks-0.04 imacat@odin /tmp/Audio-FindChunks-0.04 % perl Makefile.PL Checking if your kit is complete... Looks good Writing Makefile for Audio::FindChunks imacat@odin /tmp/Audio-FindChunks-0.04 % make cp FindChunks.pm blib/lib/Audio/FindChunks.pm In file included from FindChunks.xs:5: ppport.h:230:1: warning: "PERL_UNUSED_DECL" redefined In file included from FindChunks.xs:2: /usr/lib/perl5/5.8.8/i686-linux-thread-multi-64int-ld/CORE/perl.h:163:1: warning: this is the location of the previous definition FindChunks.c: In function 'XS_Audio__FindChunks_le_short_sample_stats': FindChunks.c:158: warning: cast to pointer from integer of different size Running Mkbootstrap for Audio::FindChunks () Manifying blib/man3/Audio::FindChunks.3 imacat@odin /tmp/Audio-FindChunks-0.04 % make test t/Audio-FindChunks......2/30 # Test 5 got: "" (t/Audio-FindChunks.t at line 67) # Expected: "1" (threshold <) # t/Audio-FindChunks.t line 67 is: ok($t < 1100,1, 'threshold <'); # Test 19 got: "" (t/Audio-FindChunks.t at line 67 fail #2) # Expected: "1" (threshold <) t/Audio-FindChunks...... Failed 2/30 subtests Test Summary Report ------------------- t/Audio-FindChunks.t (Wstat: 0 Tests: 30 Failed: 2) Failed tests: 5, 19 Files=1, Tests=30, 26 wallclock secs ( 0.07 usr 0.01 sys + 25.10 cusr 0.39 csys = 25.57 CPU) Result: FAIL Failed 1/1 test programs. 2/30 subtests failed. make: *** [test_dynamic] Error 255 imacat@odin /tmp/Audio-FindChunks-0.04 % perl -v This is perl, v5.8.8 built for i686-linux-thread-multi-64int-ld Copyright 1987-2006, Larry Wall Perl may be copied only under the terms of either the Artistic License or the GNU General Public License, which may be found in the Perl 5 source kit. Complete documentation for Perl, including FAQ lists, should be found on this system using "man perl" or "perldoc perl". If you have access to the Internet, point your browser at http://www.perl.org/, the Perl Home Page. imacat@odin /tmp/Audio-FindChunks-0.04 %

Download blocks1.tmp
application/octet-stream 42.6k

Message body not shown because it is not plain text.

Download blocks2.tmp
application/octet-stream 42.5k

Message body not shown because it is not plain text.

Sat Mar 29 16:43:41 2008 nospam-abuse [...] ilyaz.org - Correspondence added

CC:	undisclosed-recipients: ;
Subject:	Re: [rt.cpan.org #34475] Huge (>1GB) tmp.wav Created by t/Audio-FindChunks.t
Date:	Sat, 29 Mar 2008 13:43:19 -0700
To:	Yi Ma Mao via RT <bug-Audio-FindChunks [...] rt.cpan.org>
From:	Ilya Zakharevich <nospam-abuse [...] ilyaz.org>

On Sat, Mar 29, 2008 at 12:01:44PM -0400, Yi Ma Mao via RT wrote: Show quoted text

> In file included from FindChunks.xs:5: > ppport.h:230:1: warning: "PERL_UNUSED_DECL" redefined > In file included from FindChunks.xs:2: > /usr/lib/perl5/5.8.8/i686-linux-thread-multi-64int-ld/CORE/perl.h:163:1: > warning: this is the location of the previous definition > FindChunks.c: In function 'XS_Audio__FindChunks_le_short_sample_stats': > FindChunks.c:158: warning: cast to pointer from integer of different size

Looks like a quite silly warning (how would one avoid it?)... Show quoted text

> Running Mkbootstrap for Audio::FindChunks () > Manifying blib/man3/Audio::FindChunks.3 > imacat@odin /tmp/Audio-FindChunks-0.04 % make test > t/Audio-FindChunks......2/30 # Test 5 got: "" (t/Audio-FindChunks.t at > line 67) > # Expected: "1" (threshold <) > # t/Audio-FindChunks.t line 67 is: ok($t < 1100,1, 'threshold <'); > # Test 19 got: "" (t/Audio-FindChunks.t at line 67 fail #2) > # Expected: "1" (threshold <) > t/Audio-FindChunks...... Failed 2/30 subtests

Could you include `perl -V' for this build? Thanks, Ilya

Sun Mar 30 10:59:49 2008 imacat [...] cpan.org - Correspondence added

On 2008-03-29 16:43:41 Sat, nospam-abuse@ilyaz.org wrote: Show quoted text

> On Sat, Mar 29, 2008 at 12:01:44PM -0400, Yi Ma Mao via RT wrote:

> > FindChunks.c: In function 'XS_Audio__FindChunks_le_short_sample_stats': > > FindChunks.c:158: warning: cast to pointer from integer of different

size Show quoted text

> Looks like a quite silly warning (how would one avoid it?)...

Hmm... I'm not good at C, and not even XS, or I would be very glad to help. I suppose you can try these 2 lists: perl-xs@perl.org http://lists.cpan.org/showlist.cgi?name=perl-xs module-authors@perl.org http://lists.cpan.org/showlist.cgi?name=module-authors Show quoted text

> > imacat@odin /tmp/Audio-FindChunks-0.04 % make test > > t/Audio-FindChunks......2/30 # Test 5 got: "" (t/Audio-FindChunks.t at > > line 67) > > # Expected: "1" (threshold <) > > # t/Audio-FindChunks.t line 67 is: ok($t < 1100,1, 'threshold <'); > > # Test 19 got: "" (t/Audio-FindChunks.t at line 67 fail #2) > > # Expected: "1" (threshold <) > > t/Audio-FindChunks...... Failed 2/30 subtests

> Could you include `perl -V' for this build?

imacat@odin ~ % perl -V Summary of my perl5 (revision 5 version 8 subversion 8) configuration: Platform: osname=linux, osvers=2.6.22.10, archname=i686-linux-thread-multi-64int-ld uname='linux odin 2.6.22.10 #1 sun oct 28 14:16:58 cst 2007 i686 gnulinux ' config_args='-s -d -Dusethreads -Dcc=gcc -Duselongdouble -Doptimize=-g -O3 -Duse64bitint -Dprefix=/usr -Dd_dosuid -Dotherlibdirs=/usr/share/perl5 -Dinc_version_list=none -Duseshrplib=true -Dcf_email=imacat@pristine.com.tw' hint=recommended, useposix=true, d_sigaction=define usethreads=define use5005threads=undef useithreads=define usemultiplicity=define useperlio=define d_sfio=undef uselargefiles=define usesocks=undef use64bitint=define use64bitall=undef uselongdouble=define usemymalloc=n, bincompat5005=undef Compiler: cc='gcc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBUGGING -fno-strict-aliasing -pipe -Wdeclaration-after-statement -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64', optimize='-g -O3', cppflags='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBUGGING -fno-strict-aliasing -pipe -Wdeclaration-after-statement -I/usr/local/include' ccversion='', gccversion='4.1.2 20061115 (prerelease) (Debian 4.1.1-21)', gccosandvers='' intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=12345678 d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12 ivtype='long long', ivsize=8, nvtype='long double', nvsize=12, Off_t='off_t', lseeksize=8 alignbytes=4, prototype=define Linker and Libraries: ld='gcc', ldflags =' -L/usr/local/lib' libpth=/usr/local/lib /lib /usr/lib libs=-lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lpthread -lc perllibs=-lnsl -ldl -lm -lcrypt -lutil -lpthread -lc libc=/lib/libc-2.3.6.so, so=so, useshrplib=true, libperl=libperl.so gnulibc_version='2.3.6' Dynamic Linking: dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E -Wl,-rpath,/usr/lib/perl5/5.8.8/i686-linux-thread-multi-64int-ld/CORE' cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib' Characteristics of this binary (from libperl): Compile-time options: DEBUGGING MULTIPLICITY PERL_IMPLICIT_CONTEXT PERL_MALLOC_WRAP THREADS_HAVE_PIDS USE_64_BIT_INT USE_ITHREADS USE_LARGE_FILES USE_LONG_DOUBLE USE_PERLIO USE_REENTRANT_API Built under linux Compiled at Nov 8 2007 23:24:05 %ENV: PERL5LIB="/home/imacat/lib/perl5" @INC: /home/imacat/lib/perl5 /usr/lib/perl5/5.8.8/i686-linux-thread-multi-64int-ld /usr/lib/perl5/5.8.8 /usr/lib/perl5/site_perl/5.8.8/i686-linux-thread-multi-64int-ld /usr/lib/perl5/site_perl/5.8.8 /usr/lib/perl5/site_perl /usr/share/perl5 . imacat@odin ~ % Please tell me if you need any more information, or if I could be of any help. Thank you.

Thu Apr 03 02:02:46 2008 nospam-abuse [...] ilyaz.org - Correspondence added

CC:	undisclosed-recipients: ;
Subject:	Re: [rt.cpan.org #34475] Huge (>1GB) tmp.wav Created by t/Audio-FindChunks.t
Date:	Wed, 2 Apr 2008 23:02:28 -0700
To:	Yi Ma Mao via RT <bug-Audio-FindChunks [...] rt.cpan.org>
From:	Ilya Zakharevich <nospam-abuse [...] ilyaz.org>

On Sun, Mar 30, 2008 at 10:59:51AM -0400, Yi Ma Mao via RT wrote: Show quoted text

> > Could you include `perl -V' for this build?

> > imacat@odin ~ % perl -V > Summary of my perl5 (revision 5 version 8 subversion 8) configuration: > Platform:

Hmm, nothing obvious. Could you also send `perl -V' for the longdouble build on which the tests succeed? Thanks, Ilya

Mon Apr 07 03:07:12 2008 imacat [...] cpan.org - Correspondence added

On 2008-04-03 02:02:46 Thu, nospam-abuse@ilyaz.org wrote: Show quoted text

> On Sun, Mar 30, 2008 at 10:59:51AM -0400, Yi Ma Mao via RT wrote: > Hmm, nothing obvious. Could you also send `perl -V' for the > longdouble build on which the tests succeed?

Sorry for the reply delay. I was replying several mails. My environments are: Debian GNU/Linux 4.0 r3, kernel 2.6.22.10, gcc 4.1.2, glibc 2.3.6. On my Perl 5.8.8, i386, I built with: ./Configure -s -d -Dusethreads -Dcc=gcc -Duselongdouble -Doptimize="-g -O3" -Duse64bitint -Dprefix=/usr -Dd_dosuid -Dotherlibdirs=/usr/share/perl5 -Dinc_version_list=none -Duseshrplib=true -Dcf_email=imacat@pristine.com.tw and its "perl -V" is: imacat@odin ~ % perl -V Summary of my perl5 (revision 5 version 8 subversion 8) configuration: Platform: osname=linux, osvers=2.6.22.10, archname=i686-linux-thread-multi-64int-ld uname='linux odin 2.6.22.10 #1 sun oct 28 14:16:58 cst 2007 i686 gnulinux ' config_args='-s -d -Dusethreads -Dcc=gcc -Duselongdouble -Doptimize=-g -O3 -Duse64bitint -Dprefix=/usr -Dd_dosuid -Dotherlibdirs=/usr/share/perl5 -Dinc_version_list=none -Duseshrplib=true -Dcf_email=imacat@pristine.com.tw' hint=recommended, useposix=true, d_sigaction=define usethreads=define use5005threads=undef useithreads=define usemultiplicity=define useperlio=define d_sfio=undef uselargefiles=define usesocks=undef use64bitint=define use64bitall=undef uselongdouble=define usemymalloc=n, bincompat5005=undef Compiler: cc='gcc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBUGGING -fno-strict-aliasing -pipe -Wdeclaration-after-statement -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64', optimize='-g -O3', cppflags='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBUGGING -fno-strict-aliasing -pipe -Wdeclaration-after-statement -I/usr/local/include' ccversion='', gccversion='4.1.2 20061115 (prerelease) (Debian 4.1.1-21)', gccosandvers='' intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=12345678 d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12 ivtype='long long', ivsize=8, nvtype='long double', nvsize=12, Off_t='off_t', lseeksize=8 alignbytes=4, prototype=define Linker and Libraries: ld='gcc', ldflags =' -L/usr/local/lib' libpth=/usr/local/lib /lib /usr/lib libs=-lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lpthread -lc perllibs=-lnsl -ldl -lm -lcrypt -lutil -lpthread -lc libc=/lib/libc-2.3.6.so, so=so, useshrplib=true, libperl=libperl.so gnulibc_version='2.3.6' Dynamic Linking: dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E -Wl,-rpath,/usr/lib/perl5/5.8.8/i686-linux-thread-multi-64int-ld/CORE' cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib' Characteristics of this binary (from libperl): Compile-time options: DEBUGGING MULTIPLICITY PERL_IMPLICIT_CONTEXT PERL_MALLOC_WRAP THREADS_HAVE_PIDS USE_64_BIT_INT USE_ITHREADS USE_LARGE_FILES USE_LONG_DOUBLE USE_PERLIO USE_REENTRANT_API Built under linux Compiled at Nov 8 2007 23:24:05 %ENV: PERL5LIB="/home/imacat/lib/perl5" @INC: /home/imacat/lib/perl5 /usr/lib/perl5/5.8.8/i686-linux-thread-multi-64int-ld /usr/lib/perl5/5.8.8 /usr/lib/perl5/site_perl/5.8.8/i686-linux-thread-multi-64int-ld /usr/lib/perl5/site_perl/5.8.8 /usr/lib/perl5/site_perl /usr/share/perl5 . imacat@odin ~ % On my Perl 5.8.8, x86_64, uselongdouble-less, I built with ./Configure -d -Dprefix=/opt/perl/testers/5.8.8 -Dusethreads -Dcc=gcc -Doptimize="-g -O3" -Dd_dosuid -Dinc_version_list=none -Acccdlflags=-fPIC -Duseshrplib=true -Dcf_email=imacat@mail.imacat.idv.tw and its "perl -V" is: imacat@rinse ~ % /tmp/perl-Audio-FindChunks/5.8.8/bin/perl -v This is perl, v5.8.8 built for x86_64-linux-thread-multi Copyright 1987-2006, Larry Wall Perl may be copied only under the terms of either the Artistic License or the GNU General Public License, which may be found in the Perl 5 source kit. Complete documentation for Perl, including FAQ lists, should be found on this system using "man perl" or "perldoc perl". If you have access to the Internet, point your browser at http://www.perl.org/, the Perl Home Page. imacat@rinse ~ % /tmp/perl-Audio-FindChunks/5.8.8/bin/perl -V Summary of my perl5 (revision 5 version 8 subversion 8) configuration: Platform: osname=linux, osvers=2.6.22.10, archname=x86_64-linux-thread-multi uname='linux rinse 2.6.22.10 #1 smp tue nov 20 02:36:22 cst 2007 x86_64 gnulinux ' config_args='-d -Dprefix=/tmp/perl-Audio-FindChunks/5.8.8 -Dusethreads -Dcc=gcc -Doptimize=-g -O3 -Dd_dosuid -Dinc_version_list=none -Acccdlflags=-fPIC -Duseshrplib=true -Dcf_email=imacat@mail.imacat.idv.tw' hint=recommended, useposix=true, d_sigaction=define usethreads=define use5005threads=undef useithreads=define usemultiplicity=define useperlio=define d_sfio=undef uselargefiles=define usesocks=undef use64bitint=define use64bitall=define uselongdouble=undef usemymalloc=n, bincompat5005=undef Compiler: cc='gcc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBUGGING -fno-strict-aliasing -pipe -Wdeclaration-after-statement -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64', optimize='-g -O3', cppflags='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBUGGING -fno-strict-aliasing -pipe -Wdeclaration-after-statement -I/usr/local/include' ccversion='', gccversion='4.1.2 20061115 (prerelease) (Debian 4.1.1-21)', gccosandvers='' intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=12345678 d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16 ivtype='long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8 alignbytes=8, prototype=define Linker and Libraries: ld='gcc', ldflags =' -L/usr/local/lib' libpth=/usr/local/lib /lib /usr/lib libs=-lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lpthread -lc perllibs=-lnsl -ldl -lm -lcrypt -lutil -lpthread -lc libc=/lib/libc-2.3.6.so, so=so, useshrplib=true, libperl=libperl.so gnulibc_version='2.3.6' Dynamic Linking: dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E -Wl,-rpath,/tmp/perl-Audio-FindChunks/5.8.8/lib/5.8.8/x86_64-linux-thread-multi/CORE' cccdlflags=' -fPIC', lddlflags='-shared -L/usr/local/lib' Characteristics of this binary (from libperl): Compile-time options: DEBUGGING MULTIPLICITY PERL_IMPLICIT_CONTEXT PERL_MALLOC_WRAP THREADS_HAVE_PIDS USE_64_BIT_ALL USE_64_BIT_INT USE_ITHREADS USE_LARGE_FILES USE_PERLIO USE_REENTRANT_API Built under linux Compiled at Mar 30 2008 22:46:39 %ENV: PERL5LIB="/home/imacat/lib/perl5" @INC: /home/imacat/lib/perl5 /tmp/perl-Audio-FindChunks/5.8.8/lib/5.8.8/x86_64-linux-thread-multi /tmp/perl-Audio-FindChunks/5.8.8/lib/5.8.8 /tmp/perl-Audio-FindChunks/5.8.8/lib/site_perl/5.8.8/x86_64-linux-thread-multi /tmp/perl-Audio-FindChunks/5.8.8/lib/site_perl/5.8.8 /tmp/perl-Audio-FindChunks/5.8.8/lib/site_perl . imacat@rinse ~ % On my Perl 5.8.8, x86_64, uselongdouble, I built with: ./Configure -s -d -Dusethreads -Dcc=gcc -Duselongdouble -Doptimize="-g -O3" -Duse64bitint -Duse64bitall -Dprefix=/usr -Dd_dosuid -Dotherlibdirs=/usr/share/perl5 -Dinc_version_list=none -Acccdlflags=-fPIC -Duseshrplib=true -Dcf_email=imacat@mail.imacat.idv.tw and its "perl -V" is imacat@rinse ~ % perl -V Summary of my perl5 (revision 5 version 8 subversion 8) configuration: Platform: osname=linux, osvers=2.6.22.10, archname=x86_64-linux-thread-multi-ld uname='linux rinse 2.6.22.10 #1 smp sun oct 28 13:30:11 cst 2007 x86_64 gnulinux ' config_args='-s -d -Dusethreads -Dcc=gcc -Duselongdouble -Doptimize=-g -O3 -Duse64bitint -Duse64bitall -Dprefix=/usr -Dd_dosuid -Dotherlibdirs=/usr/share/perl5 -Dinc_version_list=none -Acccdlflags=-fPIC -Duseshrplib=true -Dcf_email=imacat@mail.imacat.idv.tw' hint=recommended, useposix=true, d_sigaction=define usethreads=define use5005threads=undef useithreads=define usemultiplicity=define useperlio=define d_sfio=undef uselargefiles=define usesocks=undef use64bitint=define use64bitall=define uselongdouble=define usemymalloc=n, bincompat5005=undef Compiler: cc='gcc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBUGGING -fno-strict-aliasing -pipe -Wdeclaration-after-statement -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64', optimize='-g -O3', cppflags='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBUGGING -fno-strict-aliasing -pipe -Wdeclaration-after-statement -I/usr/local/include' ccversion='', gccversion='4.1.2 20061115 (prerelease) (Debian 4.1.1-21)', gccosandvers='' intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=12345678 d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16 ivtype='long', ivsize=8, nvtype='long double', nvsize=16, Off_t='off_t', lseeksize=8 alignbytes=16, prototype=define Linker and Libraries: ld='gcc', ldflags =' -L/usr/local/lib' libpth=/usr/local/lib /lib /usr/lib libs=-lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lpthread -lc perllibs=-lnsl -ldl -lm -lcrypt -lutil -lpthread -lc libc=/lib/libc-2.3.6.so, so=so, useshrplib=true, libperl=libperl.so gnulibc_version='2.3.6' Dynamic Linking: dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E -Wl,-rpath,/usr/lib/perl5/5.8.8/x86_64-linux-thread-multi-ld/CORE' cccdlflags=' -fPIC', lddlflags='-shared -L/usr/local/lib' Characteristics of this binary (from libperl): Compile-time options: DEBUGGING MULTIPLICITY PERL_IMPLICIT_CONTEXT PERL_MALLOC_WRAP THREADS_HAVE_PIDS USE_64_BIT_ALL USE_64_BIT_INT USE_ITHREADS USE_LARGE_FILES USE_LONG_DOUBLE USE_PERLIO USE_REENTRANT_API Built under linux Compiled at Nov 4 2007 18:55:16 %ENV: PERL5LIB="/home/imacat/lib/perl5" @INC: /home/imacat/lib/perl5 /usr/lib/perl5/5.8.8/x86_64-linux-thread-multi-ld /usr/lib/perl5/5.8.8 /usr/lib/perl5/site_perl/5.8.8/x86_64-linux-thread-multi-ld /usr/lib/perl5/site_perl/5.8.8 /usr/lib/perl5/site_perl /usr/share/perl5 . imacat@rinse ~ % Hope that this helps. Please tell me if you need any more information, or if I could be of any help. Thank you.

Mon Apr 07 22:24:15 2008 nospam-abuse [...] ilyaz.org - Correspondence added

CC:	undisclosed-recipients: ;
Subject:	Re: [rt.cpan.org #34475] Huge (>1GB) tmp.wav Created by t/Audio-FindChunks.t
Date:	Mon, 7 Apr 2008 19:23:56 -0700
To:	Yi Ma Mao via RT <bug-Audio-FindChunks [...] rt.cpan.org>
From:	Ilya Zakharevich <nospam-abuse [...] ilyaz.org>

On Mon, Apr 07, 2008 at 03:07:13AM -0400, Yi Ma Mao via RT wrote: Show quoted text

> On 2008-04-03 02:02:46 Thu, nospam-abuse@ilyaz.org wrote:

> > On Sun, Mar 30, 2008 at 10:59:51AM -0400, Yi Ma Mao via RT wrote: > > Hmm, nothing obvious. Could you also send `perl -V' for the > > longdouble build on which the tests succeed?

> > Sorry for the reply delay. I was replying several mails. > > My environments are: Debian GNU/Linux 4.0 r3, kernel 2.6.22.10, gcc > 4.1.2, glibc 2.3.6. On my Perl 5.8.8, i386, I built with:

Thanks. I see that the major difference between 1st and 3rd is that the longsize becomes 8bytes... Still not clear what it is which breaks. Could we start from the other end? Would not you run perl -Mblib -MAudio::FindChunks -wle "Audio::FindChunks->new(filename => shift)->output_levels()" tmp.wav with tmp.wav from ilyaz.org/software/tmp/tmp.wav (on the machine where the test breaks)? Thanks, Ilya

Tue Apr 08 00:43:26 2008 imacat [...] cpan.org - Correspondence added

On 2008-04-07 22:24:15 Mon, nospam-abuse@ilyaz.org wrote: Show quoted text

> On Mon, Apr 07, 2008 at 03:07:13AM -0400, Yi Ma Mao via RT wrote:

> > On 2008-04-03 02:02:46 Thu, nospam-abuse@ilyaz.org wrote:

> perl -Mblib -MAudio::FindChunks -wle "Audio::FindChunks-

> >new(filename => shift)->output_levels()" tmp.wav

The result is attached below: imacat@odin /tmp/Audio-FindChunks-0.04 % PERL5LIB=/tmp/Audio-FindChunks-0.04/blib/arch:/tmp/Audio-FindChunks-0.04/blib/lib:/tmp/Data-Flow-0.09/blib/arch:/tmp/Data-Flow-0.09/blib/lib perl -Mblib -MAudio::FindChunks -wle "Audio::FindChunks->new(filename => shift)->output_levels()" tmp.wav Frequency: 44100. Stride: 4; 2 channels. Chunk=0.1sec=17640bytes. ch0: -29.0 .. 4105.0 (-61dB;-18dB). ch1: -29.0 .. 29.0 (-61dB;-61dB). 0: 0.0: 65.2= -51dB: ############### 1: 0.1: 65.2= -51dB: ############### 2: 0.2: 65.2= -51dB: ############### 3: 0.3: 65.2= -51dB: ############### 4: 0.4: 65.2= -51dB: ############### imacat@odin /tmp/Audio-FindChunks-0.04 % Hope that this helps. Please tell me if you need any more information, or if I could be of any help. Thank you.

Tue Apr 08 06:31:24 2008 nospam-abuse [...] ilyaz.org - Correspondence added

CC:	undisclosed-recipients: ;
Subject:	Re: [rt.cpan.org #34475] Huge (>1GB) tmp.wav Created by t/Audio-FindChunks.t
Date:	Tue, 8 Apr 2008 03:30:55 -0700
To:	Yi Ma Mao via RT <bug-Audio-FindChunks [...] rt.cpan.org>
From:	Ilya Zakharevich <nospam-abuse [...] ilyaz.org>

On Tue, Apr 08, 2008 at 12:43:31AM -0400, Yi Ma Mao via RT wrote: Show quoted text

> > Queue: Audio-FindChunks > Ticket <URL: http://rt.cpan.org/Ticket/Display.html?id=34475 > > > On 2008-04-07 22:24:15 Mon, nospam-abuse@ilyaz.org wrote:

> > On Mon, Apr 07, 2008 at 03:07:13AM -0400, Yi Ma Mao via RT wrote:

> > > On 2008-04-03 02:02:46 Thu, nospam-abuse@ilyaz.org wrote:

> > perl -Mblib -MAudio::FindChunks -wle "Audio::FindChunks-

> > >new(filename => shift)->output_levels()" tmp.wav

> > The result is attached below:

Thanks a lot for your patience. This narrows the problem area yet more, but still I cannot deduce what happens. I would really appreciate if you could download the debugging version at ilyaz.org/software/tmp/Audio-FindChunks-0.06-try1.tar.gz run the test, and rerun the tmp.wav test as env FIND_CHUNKS_DEBUG=1 perl -Mblib -MAudio::FindChunks -wle "Audio::FindChunks->new(filename => shift)->output_levels()" tmp.wav I would like to see the output (STDERR included). Sorry for all this mess, Ilya

Thu Apr 10 14:13:36 2008 imacat [...] cpan.org - Correspondence added

Dear Ilya, Hi. This is imacat from Taiwan. On 2008-04-08 06:31:24 Tue, nospam-abuse@ilyaz.org wrote Show quoted text

> On Tue, Apr 08, 2008 at 12:43:31AM -0400, Yi Ma Mao via RT wrote: > ilyaz.org/software/tmp/Audio-FindChunks-0.06-try1.tar.gz > run the test, and rerun the tmp.wav test as > env FIND_CHUNKS_DEBUG=1 perl -Mblib -MAudio::FindChunks -wle > "Audio::FindChunks->new(filename => shift)->output_levels()" tmp.wav

The terminal log is a bit long, so I compressed and attached it as an attachment. Hope that this helps. Please tell me if you need any more information, or if I could be of any help. Thank you.

Download Audio-FindChunks-0.06.log.gz
application/gzip 8.4k

Message body not shown because it is not plain text.

Thu Apr 10 19:42:48 2008 nospam-abuse [...] ilyaz.org - Correspondence added

CC:	undisclosed-recipients: ;
Subject:	Re: [rt.cpan.org #34475] Huge (>1GB) tmp.wav Created by t/Audio-FindChunks.t
Date:	Thu, 10 Apr 2008 16:42:20 -0700
To:	Yi Ma Mao via RT <bug-Audio-FindChunks [...] rt.cpan.org>
From:	Ilya Zakharevich <nospam-abuse [...] ilyaz.org>

On Thu, Apr 10, 2008 at 02:13:40PM -0400, Yi Ma Mao via RT wrote: Show quoted text

> > Queue: Audio-FindChunks > Ticket <URL: http://rt.cpan.org/Ticket/Display.html?id=34475 > > > Dear Ilya, > > Hi. This is imacat from Taiwan. > > On 2008-04-08 06:31:24 Tue, nospam-abuse@ilyaz.org wrote

> > On Tue, Apr 08, 2008 at 12:43:31AM -0400, Yi Ma Mao via RT wrote: > > ilyaz.org/software/tmp/Audio-FindChunks-0.06-try1.tar.gz > > run the test, and rerun the tmp.wav test as > > env FIND_CHUNKS_DEBUG=1 perl -Mblib -MAudio::FindChunks -wle > > "Audio::FindChunks->new(filename => shift)->output_levels()" tmp.wav

> > The terminal log is a bit long, so I compressed and attached it as > an attachment. Hope that this helps. Please tell me if you need any > more information, or if I could be of any help. Thank you.

Thanks a lot. I'm starting to see some hints. However, to be more sure, could you please rerun the command above once more with the file tmp.wav from ilyaz.org/software/tmp/tmp.wav Thanks, Ilya

Thu Apr 10 22:17:58 2008 imacat [...] cpan.org - Correspondence added

Dear Ilya, Hi. This is imacat from Taiwan. On 2008-04-10 19:42:48 Thu, nospam-abuse@ilyaz.org wrote: Show quoted text

> On Thu, Apr 10, 2008 at 02:13:40PM -0400, Yi Ma Mao via RT wrote: > sure, could you please rerun the command above once more with the file > tmp.wav from > ilyaz.org/software/tmp/tmp.wav

Please see the attachment. Please tell me if you need any more information, or if I could be of any help. Thank you.

Download Audio-FindChunks-0.06-tmp.wav-2.log.gz
application/gzip 820b

Message body not shown because it is not plain text.

Thu Apr 10 23:58:41 2008 nospam-abuse [...] ilyaz.org - Correspondence added

CC:	undisclosed-recipients: ;
Subject:	Re: [rt.cpan.org #34475] Huge (>1GB) tmp.wav Created by t/Audio-FindChunks.t
Date:	Thu, 10 Apr 2008 20:58:23 -0700
To:	Yi Ma Mao via RT <bug-Audio-FindChunks [...] rt.cpan.org>
From:	Ilya Zakharevich <nospam-abuse [...] ilyaz.org>

On Thu, Apr 10, 2008 at 10:18:02PM -0400, Yi Ma Mao via RT wrote: Show quoted text

> > Queue: Audio-FindChunks > Ticket <URL: http://rt.cpan.org/Ticket/Display.html?id=34475 > > > Dear Ilya, > > Hi. This is imacat from Taiwan. > > On 2008-04-10 19:42:48 Thu, nospam-abuse@ilyaz.org wrote:

> > On Thu, Apr 10, 2008 at 02:13:40PM -0400, Yi Ma Mao via RT wrote: > > sure, could you please rerun the command above once more with the file > > tmp.wav from > > ilyaz.org/software/tmp/tmp.wav

> > Please see the attachment. Please tell me if you need any more > information, or if I could be of any help. Thank you.

Sorry, but I still want more experiments from you. Could you apply the attached patch, make and run the same command with the short tmp.wav file? (Do not try to make test, it can take a lot of time...) Thanks, Ilya --- ./wavestats.c-ini Thu Apr 1 03:20:02 2004 +++ ./wavestats.c Thu Apr 10 20:42:10 2008 @@ -5,13 +5,16 @@ void le_short_sample_stats(char *buf, int stride, long samples, array_stats_t *stat) { long i = 0; + char *ibuf = buf; while (i++ <= samples) { short elt; buf += stride; #if NATIVE_LE_SHORTS +# define NAT 1 elt = *(short*)buf; #else +# define NAT 0 { unsigned int u = *(unsigned char*)buf; u += (*(unsigned char*)(buf+1))<<8; @@ -21,6 +24,14 @@ le_short_sample_stats(char *buf, int str elt = u; } #endif + if (elt > 40 && buf >= ibuf + 4) { + char b[512]; + sprintf(b, "@%#lx: %d, NAT=%d; %#x %#x %#x %#x | %#x %#x %#x %#x\n", + (long)(buf - ibuf), (int)elt, NAT, + (int)buf[-4], (int)buf[-3], (int)buf[-2], (int)buf[-1], + (int)buf[0], (int)buf[1], (int)buf[2], (int)buf[3]); + write(2,b,strlen(b)); + } if (elt < stat->min) stat->min = elt; if (elt > stat->max)

Tue Apr 15 05:31:50 2008 imacat [...] cpan.org - Correspondence added

Dear Ilya, On 2008-04-10 23:58:41 Thu, nospam-abuse@ilyaz.org wrote: Show quoted text

> On Thu, Apr 10, 2008 at 10:18:02PM -0400, Yi Ma Mao via RT wrote: > Could you apply the attached patch, > and run the same command with the short tmp.wav file? (Do not try to > make test, it can take a lot of time...)

Hi. This is imacat from Taiwan. Sorry for the delay, and thanks for your patience. The result is attached. Please tell me if you need any more information, or if I could be of any help. Thank you.

Download Audio-FindChunks-0.06-patch.log.gz
application/gzip 495b

Message body not shown because it is not plain text.

Wed Apr 16 19:50:18 2008 nospam-abuse [...] ilyaz.org - Correspondence added

CC:	undisclosed-recipients: ;
Subject:	Re: [rt.cpan.org #34475] Huge (>1GB) tmp.wav Created by t/Audio-FindChunks.t
Date:	Wed, 16 Apr 2008 16:50:00 -0700
To:	Yi Ma Mao via RT <bug-Audio-FindChunks [...] rt.cpan.org>
From:	Ilya Zakharevich <nospam-abuse [...] ilyaz.org>

On Tue, Apr 15, 2008 at 05:31:55AM -0400, Yi Ma Mao via RT wrote: Show quoted text

> > Queue: Audio-FindChunks > Ticket <URL: http://rt.cpan.org/Ticket/Display.html?id=34475 > > > Dear Ilya, > > On 2008-04-10 23:58:41 Thu, nospam-abuse@ilyaz.org wrote:

> > On Thu, Apr 10, 2008 at 10:18:02PM -0400, Yi Ma Mao via RT wrote: > > Could you apply the attached patch, > > and run the same command with the short tmp.wav file? (Do not try to > > make test, it can take a lot of time...)

> > Hi. This is imacat from Taiwan. Sorry for the delay, and thanks > for your patience. The result is attached. Please tell me if you need > any more information, or if I could be of any help. Thank you.

Thank you a lot; this made it clear: off-by-one in the "samples" counter. I've uploaded Audio-FindChunks-1.00.tar.gz to CPAN. When it is indexed (a couple of hours), could you recheck it again? Really appreciating your patience, Ilya

Wed Apr 16 21:10:41 2008 imacat [...] cpan.org - Correspondence added

On 2008-04-16 19:50:18 Wed, nospam-abuse@ilyaz.org wrote: Show quoted text

> On Tue, Apr 15, 2008 at 05:31:55AM -0400, Yi Ma Mao via RT wrote: > I've uploaded Audio-FindChunks-1.00.tar.gz to CPAN. When it is > indexed (a couple of hours), could you recheck it again?

Sure. I am very glad that I am helpful and things did work out. Show quoted text

> Really appreciating your patience,

You are welcome. ^_*'

Thu Apr 17 23:39:51 2008 nospam-abuse [...] ilyaz.org - Correspondence added

CC:	undisclosed-recipients: ;
Subject:	Re: [rt.cpan.org #34475] Huge (>1GB) tmp.wav Created by t/Audio-FindChunks.t
Date:	Thu, 17 Apr 2008 20:39:37 -0700
To:	Yi Ma Mao via RT <bug-Audio-FindChunks [...] rt.cpan.org>
From:	Ilya Zakharevich <nospam-abuse [...] ilyaz.org>

On Wed, Apr 16, 2008 at 09:10:42PM -0400, Yi Ma Mao via RT wrote: Show quoted text

> > Queue: Audio-FindChunks > Ticket <URL: http://rt.cpan.org/Ticket/Display.html?id=34475 > > > On 2008-04-16 19:50:18 Wed, nospam-abuse@ilyaz.org wrote:

> > On Tue, Apr 15, 2008 at 05:31:55AM -0400, Yi Ma Mao via RT wrote: > > I've uploaded Audio-FindChunks-1.00.tar.gz to CPAN. When it is > > indexed (a couple of hours), could you recheck it again?

> > Sure. I am very glad that I am helpful and things did work out. >

> > Really appreciating your patience,

> > You are welcome. ^_*'

One more goof on my side: v1.00 of Data::Flow is actually backleveled w.r.t. v0.09; could you wait a couple of hours until versions 1.01 propagate to CPAN? Yours, Ilya

Fri Apr 18 14:35:17 2008 imacat [...] cpan.org - Correspondence added

On 2008-04-17 23:39:51 Thu, nospam-abuse@ilyaz.org wrote: Show quoted text

> On Wed, Apr 16, 2008 at 09:10:42PM -0400, Yi Ma Mao via RT wrote:

Dear Ilya, I believe this bug is solved. Please remember to close this bug: http://rt.cpan.org/Ticket/Display.html?id=34475 Please tell me if you have any more question, or if I could be of any help. Thank you.