On Wed, 11 Jun 2003, Rafael Garcia-Suarez wrote: > Robin Barker wrote: > > --- ../libwww-perl-5.69/bin/lwp-download Thu Jan 3 02:09:24 2002 > > +++ bin/lwp-download > > @@ -109,8 +109,8 @@ > > my $suffix = media_suffix($res->content_type); > > $file .= ".$suffix" if $suffix; > > } elsif ($rurl->scheme eq 'ftp' || > > - $file =~ /\.tgz$/ || > > - $file =~ /\.tar(\.(Z|gz))?$/ > > + $file =~ /\.t[bg]z$/ || > > + $file =~ /\.tar(\.(Z|[bg]z))?$/ > > While you're at it, why not adding .tar.bz2 as well ?
Shouldn't that be 'instead of' rather than 'as well as'? Patch to the patch above: - $file =~ /\.tar(\.(Z|[bg]z))?$/ + $file =~ /\.tar(\.(Z|gz|bz2))?$/ John
