diff options
Diffstat (limited to 'lispref/tindex.pl')
| -rwxr-xr-x | lispref/tindex.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lispref/tindex.pl b/lispref/tindex.pl index c138f5d66f1..459a2b72e84 100755 --- a/lispref/tindex.pl +++ b/lispref/tindex.pl @@ -52,7 +52,7 @@ my $help = 0; my $version = 0; my $old; -my $rc = GetOptions ('help' => \$help, 'version' => \$version, +my $rc = GetOptions ('help' => \$help, 'version' => \$version, 'old=s' => \$old); if ($version) { print "0.1\n"; @@ -86,14 +86,14 @@ foreach $file (@old_files) { close IN; } -# Process current files and remove those @tindex lines which we +# Process current files and remove those @tindex lines which we # know were already present in the files scanned above. print "Removing old \@tindex lines\n"; foreach $file (@new_files) { my $modified = 0; my $contents = ""; - + open (IN, "< $file") or fatal "Cannot open $file.orig for reading: $!"; while (<IN>) { if (/^\s*\@tindex\s+(\S+)/ && $tindex{$1}) { @@ -103,7 +103,7 @@ foreach $file (@new_files) { $contents = $contents . $_; } } - + close IN; if ($modified) { |