Add patches for Perl 5.6.0.

PR:		ports/20129
Submitted by:	Sugimoto Sadahiro <ixtl@utmc.or.jp> (MAINTAINER)
This commit is contained in:
Akinori MUSHA 2000-08-28 18:26:55 +00:00
parent 4b7f9c06ec
commit 4b927259dc
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=32061
6 changed files with 86 additions and 0 deletions

View file

@ -0,0 +1,38 @@
--- latex2html.orig Tue Jul 18 09:41:56 2000
+++ latex2html Tue Jul 18 09:46:11 2000
@@ -2780,7 +2780,7 @@
if (defined &$trans) {
&set_default_language($pattern,*_);
}
- undef($cmd,$trans);
+ undef $cmd; undef $trans;
}
next;
} elsif ($4) {
@@ -3085,7 +3085,7 @@
# Modifies $contents
&process_command($single_cmd_rx,*contents) if ($contents =~ /\\/o);
}
- undef ($cmd,$tmp,$etmp);
+ undef $cmd; undef $tmp; undef $etmp;
} else {
$contents = &translate_environments($contents);
$contents = &translate_commands($contents)
@@ -8916,7 +8916,7 @@
};
}
return(1) if ($this_dir eq '.');
- rmdir($this_dir,$print_dir) if $mode;
+ if ($mode) { rmdir $this_dir; rmdir $print_dir }
if (!$mode) { &new_dir($this_dir,'r')};
return(1);
} elsif ($answer =~ /^q$/) {
@@ -11326,7 +11326,7 @@
&extract_captions($cap_env) if ($_ =~ /\\caption/m);
$minipage_caption = $captions;
$_ = $contents;
- undef($contents, $captions);
+ undef $contentscw; undef $captions;
};
}

View file

@ -0,0 +1,11 @@
--- versions/html3_1.pl Tue Mar 30 20:29:04 1999
+++ versions/html3_1.pl.new Tue Jul 18 09:27:13 2000
@@ -1731,7 +1731,7 @@
($this, $_) = &$ctmp($_);
$this = &parse_math_toks($mode,$style,$face,$slevel,1,$this);
@open_tags = @save_open_tags;
- undef ($color_env, $inside_math, @save_open_tags);
+ undef $color_env; undef $inside_math; undef @save_open_tags;
};
} elsif ($cmd eq 'left') {
#expandable delimiter: make an image

View file

@ -0,0 +1,11 @@
--- versions/html3_2.pl Wed Dec 2 19:43:50 1998
+++ versions/html3_2.pl.new Tue Jul 18 09:24:27 2000
@@ -801,7 +801,7 @@
local($tmp) = ++$global{'max_id'};
"\\begin$OP$tmp${CP}math$OP$tmp$CP$1\\end$OP$tmp${CP}math$OP$tmp$CP"
/eg;
- undef ($cmd,$tmp,$endspec); undef @cmds;
+ undef $cmd; undef $tmp; undef $endspec; undef @cmds;
local($tmp) = ++$global{'max_id'};
if(@save_open_tags_tabular) {

View file

@ -0,0 +1,11 @@
--- versions/html4_0.pl Wed Dec 2 19:43:52 1998
+++ versions/html4_0.pl.new Tue Jul 18 09:25:00 2000
@@ -1138,7 +1138,7 @@
local($tmp) = ++$global{'max_id'};
"\\begin$OP$tmp${CP}math$OP$tmp$CP$1\\end$OP$tmp${CP}math$OP$tmp$CP"
/eg;
- undef ($cmd,$tmp,$endspec); undef @cmds;
+ undef $cmd; undef $tmp; undef $endspec; undef @cmds;
local($tmp) = ++$global{'max_id'};
if(@save_open_tags_tabular) {

View file

@ -0,0 +1,11 @@
--- versions/math.pl Tue Jul 18 09:25:39 2000
+++ versions/math.pl.new Tue Jul 18 09:26:05 2000
@@ -1731,7 +1731,7 @@
($this, $_) = &$ctmp($_);
$this = &parse_math_toks($mode,$style,$face,$slevel,1,$this);
@open_tags = @save_open_tags;
- undef ($color_env, $inside_math, @save_open_tags);
+ undef $color_env; undef $inside_math; undef @save_open_tags;
};
} elsif ($cmd eq 'left') {
#expandable delimiter: make an image

View file

@ -396,8 +396,11 @@ share/latex2html/versions/html2_1.pl
share/latex2html/versions/html2_2.pl
share/latex2html/versions/html3_0.pl
share/latex2html/versions/html3_1.pl
share/latex2html/versions/html3_1.pl.orig
share/latex2html/versions/html3_2.pl
share/latex2html/versions/html3_2.pl.orig
share/latex2html/versions/html4_0.pl
share/latex2html/versions/html4_0.pl.orig
share/latex2html/versions/i18n.pl
share/latex2html/versions/lang.pl
share/latex2html/versions/latin1.pl
@ -407,6 +410,7 @@ share/latex2html/versions/latin4.pl
share/latex2html/versions/latin5.pl
share/latex2html/versions/latin6.pl
share/latex2html/versions/math.pl
share/latex2html/versions/math.pl.orig
share/latex2html/versions/table.pl
share/latex2html/versions/unicode.pl
share/texmf/tex/latex/latex2html/floatflt.ins