Gisle

Now that perl is being distributed as .tbz files, I have a patch to
treat these
like .tgz in lwp-download.

Robin 

--- ../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))?$/
                          ) {
                      # leave the filename as it was
                  } else {



-------------------------------------------------------------------
This e-mail and any attachments may contain confidential and/or
privileged material; it is for the intended addressee(s) only.
If you are not a named addressee, you must not use, retain or
disclose such information.

NPL Management Ltd cannot guarantee that the e-mail or any
attachments are free from viruses.

NPL Management Ltd. Registered in England and Wales. No: 2937881
Registered Office: Teddington, Middlesex, United Kingdom TW11 0LW.
-------------------------------------------------------------------

Attachment: lwpdload.gz
Description: Binary data

Reply via email to