develooper Front page | perl.libwww | Postings from June 2003

Re: [PATCH lwp-download] to recognise .tbz

Thread Previous | Thread Next
From:
Rafael Garcia-Suarez
Date:
June 11, 2003 11:51
Subject:
Re: [PATCH lwp-download] to recognise .tbz
Message ID:
20030611205228.2e7cc0db.rgarciasuarez@free.fr
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 ?

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About