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)

History Show all quoted text
  Fri Mar 08 07:48:55 2002 Guest - Ticket created
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
  Fri Mar 08 15:40:32 2002 ned [...] bike-nomad.com - Correspondence added
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
  Sat Apr 27 18:56:39 2002 nedkonz [...] cpan.org - Correspondence added
Should be fixed in 1.00.
  Sat Apr 27 18:56:40 2002 nedkonz [...] cpan.org - Status changed from 'new' to 'resolved'