Skip Menu |

This queue is for tickets about the Archive-Tar CPAN distribution.

Report information
The Basics
Id: 13329
Status: stalled
Priority: 0/
Queue: Archive-Tar

People
Owner: Nobody in particular
Requestors: ron [...] savage.net.au
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 1.24
Fixed in: (no value)

Attachments


Subject: dir names doubled in path during 'nmake test'
Here is a sample: t\02_methods....ok 1/0Could not open file 'D:\perl-modules\Archive-Tar-1.24\t\D:\perl-modules\Archive-Tar-1.24\t\src\short\1320': Invalid argument at t\02_methods.t line 693 See attached file for full details. V 1.22 was ok. Env: OS: WinXP Perl: 5.8.6
Download archive-tar-1.24.log
application/octet-stream 10.5k

Message body not shown because it is not plain text.

[guest - Mon Jun 20 23:04:43 2005]: Show quoted text
> Here is a sample: > t\02_methods....ok 1/0Could not open file 'D:\perl-modules\Archive- > Tar-1.24\t\D:\perl-modules\Archive-Tar-1.24\t\src\short\1320': Invalid > argument at > t\02_methods.t line 693
This almost looks like a File::Spec bug. The lines where the error is occuring are: 689 ### alternate extract path tests 690 ### to abs and rel paths 691 { for my $outpath ( File::Spec->catdir( @ROOT ), 692 File::Spec->rel2abs( 693 File::Spec->catdir( @ROOT ) 694 ) 695 ) { 696 697 my $outfile = File::Spec->catfile( $outpath, $$ ); 698 699 ok( $tar->extract_file( $file->full_path, $outfile ), 700 " Extracted file '$path' to $outfile" ); 701 ok( -e $outfile," Extracted file '$outfile' exists" ); 702 703 rm( $outfile ) unless $NO_UNLINK; 704 } 705 } 706 } The first iteration tests a relative path, the second tests an absolute path. I've added this warning: 696 warn "root: @ROOT\noutpath: $outpath\n"; and that adds roughly the following output (as one would expect): root: src long outpath: src/long ok 234 - Extracted file 'directory/really-really-really-really-really-really-really-really- really-really-really-really-really-really-really-really-really-really-really-really-really-really- really-really-really-really-really-really-long-directory-name/myfile' to src/long/2816 ok 235 - Extracted file 'src/long/2816' exists root: src long outpath: /Users/kane/sources/p4/other/archive-tar-new/t/src/long ok 236 - Extracted file 'directory/really-really-really-really-really-really-really-really- really-really-really-really-really-really-really-really-really-really-really-really-really-really- really-really-really-really-really-really-long-directory-name/myfile' to /Users/kane/ sources/p4/other/archive-tar-new/t/src/long/2816 ok 237 - Extracted file '/Users/kane/sources/p4/other/archive-tar-new/t/src/long/2816' exists could you verify if the values for '@ROOT' and '$outpath' are reasonable as well for you? and check, if not, if the error is perhaps due to file::spec issues... Show quoted text
> See attached file for full details. > V 1.22 was ok.
The test that's failing got added between 1.22 and 1.24