Preferred bug tracker

Please visit the preferred bug tracker to report your issue.

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

Report information
The Basics
Id:
333
Status:
resolved
Priority:
Low/Low
Queue:

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

BugTracker
Severity:
Normal
Broken in:
0.11
Fixed in:
(no value)



Subject: Bug in Archive-Zip-Tree
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
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 runs on Request Tracker, is sponsored by The Perl Foundation, and maintained by Best Practical Solutions.

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