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'
Download (untitled) / with headers
text/plain 270b
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.

Download (untitled) / with headers
text/plain 2.3k
[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


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.