summaryrefslogtreecommitdiff
path: root/textproc/texi2html/files/patch-texi2html.pl
diff options
context:
space:
mode:
Diffstat (limited to 'textproc/texi2html/files/patch-texi2html.pl')
-rw-r--r--textproc/texi2html/files/patch-texi2html.pl51
1 files changed, 0 insertions, 51 deletions
diff --git a/textproc/texi2html/files/patch-texi2html.pl b/textproc/texi2html/files/patch-texi2html.pl
deleted file mode 100644
index f3660d0a9bb6..000000000000
--- a/textproc/texi2html/files/patch-texi2html.pl
+++ /dev/null
@@ -1,51 +0,0 @@
---- texi2html.pl.old Sat Dec 13 07:39:45 2003
-+++ texi2html.pl Sat Dec 13 07:40:11 2003
-@@ -174,7 +174,6 @@
- $ext
- $extensions
- $failed
-- $fh_name
- $file
- $first_index_chapter
- $first_line
-@@ -4127,25 +4126,22 @@
- sub open
- {
- my($name) = @_;
-+ local *FH;
-
-- ++$fh_name;
-- no strict "refs";
-- if (open($fh_name, $name))
-+ if (open(*FH, $name))
- {
-- unshift(@fhs, $fh_name);
-+ unshift(@fhs, *FH);
- }
- else
- {
- warn "$ERROR Can't read file $name: $!\n";
- }
-- use strict "refs";
- }
-
- sub init_input
- {
- @fhs = (); # hold the file handles to read
- @input_spool = (); # spooled lines to read
-- $fh_name = 'FH000';
- &open($docu);
- }
-
-@@ -4420,9 +4416,8 @@
- if ($style =~ /^\&/)
- { # custom
- $style = $';
-- no strict "refs";
-- $text = &$style($text, $texi_style);
-- use strict "refs";
-+ eval "\$text = &$style(\$text, \$texi_style)";
-+ die $@ if $@;
- }
- elsif ($style)
- { # good style