From 226349235c08e3bde6e6dc6ea04cb486fd1aab1c Mon Sep 17 00:00:00 2001
From: "Andrey A. Chernov" <ache@FreeBSD.org>
Date: Sun, 17 Apr 2005 19:29:58 +0000
Subject: Rename patches according to porter's handbook
---
www/w3mir/files/patch-aa | 13 -------------
www/w3mir/files/patch-ab | 19 -------------------
www/w3mir/files/patch-ac | 19 -------------------
www/w3mir/files/patch-w3http.pm | 19 +++++++++++++++++++
www/w3mir/files/patch-w3mfix.PL | 19 +++++++++++++++++++
www/w3mir/files/patch-w3mir.PL | 13 +++++++++++++
6 files changed, 51 insertions(+), 51 deletions(-)
delete mode 100644 www/w3mir/files/patch-aa
delete mode 100644 www/w3mir/files/patch-ab
delete mode 100644 www/w3mir/files/patch-ac
create mode 100644 www/w3mir/files/patch-w3http.pm
create mode 100644 www/w3mir/files/patch-w3mfix.PL
create mode 100644 www/w3mir/files/patch-w3mir.PL
(limited to 'www/w3mir')
diff --git a/www/w3mir/files/patch-aa b/www/w3mir/files/patch-aa
deleted file mode 100644
index 5c64be77bbd7..000000000000
--- a/www/w3mir/files/patch-aa
+++ /dev/null
@@ -1,13 +0,0 @@
---- w3mir.PL.orig Mon Feb 5 00:21:47 2001
-+++ w3mir.PL Sun Apr 17 21:43:30 2005
-@@ -648,8 +648,10 @@
- $rum_url_o = url $rum_url_o
- unless ref $rum_url_o;
-
-+ my($slash)=($lf_url =~ /^\//);
- # Derive a filename from the url, the filename contains no URL-quoting
- my($lf_name) = (url "file:$lf_url")->unix_path;
-+ $lf_name =~ s~^/~~ if (!$slash);
-
- # Make all intermediate directories
- &mkdir($lf_name) if $s==0;
diff --git a/www/w3mir/files/patch-ab b/www/w3mir/files/patch-ab
deleted file mode 100644
index 58af17e12776..000000000000
--- a/www/w3mir/files/patch-ab
+++ /dev/null
@@ -1,19 +0,0 @@
---- w3http.pm.bak Mon Feb 5 00:21:47 2001
-+++ w3http.pm Sun Apr 17 21:43:30 2005
-@@ -551,13 +551,16 @@
- # found at cool sites.
- $save=1;
-
-+ my($slash)=($saveto =~ /^\//);
- # Find a temporary filename
- $tmpf=url "file:$saveto";
- $tmpf->basename($tmpfile);
- $tmpf=$tmpf->unix_path;
-+ $tmpf =~ s~^/~~ if (!$slash);
-
- # Find suitable final filename, one with no URL escapes
- $saveto=(url "file:$saveto")->unix_path;
-+ $saveto =~ s~^/~~ if (!$slash);
-
- # If output to stdout then send it directly there rather than
- # using disk unnecesarily.
diff --git a/www/w3mir/files/patch-ac b/www/w3mir/files/patch-ac
deleted file mode 100644
index 6094ed3f2c4a..000000000000
--- a/www/w3mir/files/patch-ac
+++ /dev/null
@@ -1,19 +0,0 @@
---- w3mfix.PL.bak Mon Feb 5 00:21:47 2001
-+++ w3mfix.PL Sun Apr 17 21:56:24 2005
-@@ -686,12 +686,15 @@
-
- substr($lf_url,0,0)='./' unless substr($lf_url,0,1) eq '/';
-
-+ my($slash)=($lf_url =~ /^\//);
- $lf_url_o=url $lf_url;
- my $tmp=$lf_url_o->clone;
- $tmp->basename($indexname);
-+ my($tpath)=$tmp->unix_path;
-+ $tpath =~ s~^/~~ if (!$slash);
-
- if ( $doindex && $lf_url_o->basename eq "" &&
-- &stat($tmp->unix_path) eq 'f' &&
-+ &stat($tpath) eq 'f' &&
- !$htmlop::isdir{$key}) {
- $lf_url_o=$tmp;
- $il=1;
diff --git a/www/w3mir/files/patch-w3http.pm b/www/w3mir/files/patch-w3http.pm
new file mode 100644
index 000000000000..58af17e12776
--- /dev/null
+++ b/www/w3mir/files/patch-w3http.pm
@@ -0,0 +1,19 @@
+--- w3http.pm.bak Mon Feb 5 00:21:47 2001
++++ w3http.pm Sun Apr 17 21:43:30 2005
+@@ -551,13 +551,16 @@
+ # found at cool sites.
+ $save=1;
+
++ my($slash)=($saveto =~ /^\//);
+ # Find a temporary filename
+ $tmpf=url "file:$saveto";
+ $tmpf->basename($tmpfile);
+ $tmpf=$tmpf->unix_path;
++ $tmpf =~ s~^/~~ if (!$slash);
+
+ # Find suitable final filename, one with no URL escapes
+ $saveto=(url "file:$saveto")->unix_path;
++ $saveto =~ s~^/~~ if (!$slash);
+
+ # If output to stdout then send it directly there rather than
+ # using disk unnecesarily.
diff --git a/www/w3mir/files/patch-w3mfix.PL b/www/w3mir/files/patch-w3mfix.PL
new file mode 100644
index 000000000000..6094ed3f2c4a
--- /dev/null
+++ b/www/w3mir/files/patch-w3mfix.PL
@@ -0,0 +1,19 @@
+--- w3mfix.PL.bak Mon Feb 5 00:21:47 2001
++++ w3mfix.PL Sun Apr 17 21:56:24 2005
+@@ -686,12 +686,15 @@
+
+ substr($lf_url,0,0)='./' unless substr($lf_url,0,1) eq '/';
+
++ my($slash)=($lf_url =~ /^\//);
+ $lf_url_o=url $lf_url;
+ my $tmp=$lf_url_o->clone;
+ $tmp->basename($indexname);
++ my($tpath)=$tmp->unix_path;
++ $tpath =~ s~^/~~ if (!$slash);
+
+ if ( $doindex && $lf_url_o->basename eq "" &&
+- &stat($tmp->unix_path) eq 'f' &&
++ &stat($tpath) eq 'f' &&
+ !$htmlop::isdir{$key}) {
+ $lf_url_o=$tmp;
+ $il=1;
diff --git a/www/w3mir/files/patch-w3mir.PL b/www/w3mir/files/patch-w3mir.PL
new file mode 100644
index 000000000000..5c64be77bbd7
--- /dev/null
+++ b/www/w3mir/files/patch-w3mir.PL
@@ -0,0 +1,13 @@
+--- w3mir.PL.orig Mon Feb 5 00:21:47 2001
++++ w3mir.PL Sun Apr 17 21:43:30 2005
+@@ -648,8 +648,10 @@
+ $rum_url_o = url $rum_url_o
+ unless ref $rum_url_o;
+
++ my($slash)=($lf_url =~ /^\//);
+ # Derive a filename from the url, the filename contains no URL-quoting
+ my($lf_name) = (url "file:$lf_url")->unix_path;
++ $lf_name =~ s~^/~~ if (!$slash);
+
+ # Make all intermediate directories
+ &mkdir($lf_name) if $s==0;
--
cgit v1.2.3