Skip Menu |
 

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

Report information
The Basics
Id: 333
Status: resolved
Priority: 0/
Queue: Archive-Zip

People
Owner: Nobody in particular
Requestors: mczerny [...] cadsys.de
Cc:
AdminCc:

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



Subject: Bug in Archive-Zip-Tree
Download (untitled) / with headers
text/plain 291b
Hello Mr.Konz, some times the 'replacement' in line 207 doesn't work with empty $root. ... 206 my $fileName = $member->fileName(); 207 $fileName =~ s{$root}{$dest}; 208 my $status = $member->extractToFileNamed( $fileName ); ... Work around: 207 $fileName =~ s{^$root}{$dest}; Regards
From: Ned Konz <ned [...] bike-nomad.com>
To: bug-Archive-Zip [...] rt.cpan.org
Subject: Re: [cpan #333] Bug in Archive-Zip-Tree
Date: Fri, 8 Mar 2002 12:40:06 -0800
Download (untitled) / with headers
text/plain 729b
On Friday 08 March 2002 04:48 am, Guest via RT wrote: Show quoted text
> This message about Archive-Zip was sent to you by guest via rt.cpan.org > > Full context and any attached attachments can be found at: > <URL: https://rt.cpan.org/Ticket/Display.html?id=333 > > > Hello Mr.Konz, > > some times the 'replacement' in line 207 doesn't work with empty $root. > > .... > 206 my $fileName = $member->fileName(); > 207 $fileName =~ s{$root}{$dest}; > 208 my $status = $member->extractToFileNamed( $fileName ); > .... > > Work around: > 207 $fileName =~ s{^$root}{$dest}; > > Regards
Actually, I put in: $fileName =~ s{^\Q$root}{$dest}; Thanks, -- Ned Konz currently: Stanwood, WA email: ned@bike-nomad.com homepage: http://bike-nomad.com
Should be fixed in 1.00.


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.