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";
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}) {
$contents = $contents . $_;
}
}
-
+
close IN;
if ($modified) {