[Emacs-diffs] Changes to emacs/lispref/tindex.pl

[Juanma Barranquero]

Index: emacs/lispref/tindex.pl
diff -c emacs/lispref/tindex.pl:1.1 emacs/lispref/tindex.pl:1.2
*** emacs/lispref/tindex.pl:1.1 Wed Jan  5 09:20:14 2000
--- emacs/lispref/tindex.pl     Tue Feb  4 09:47:54 2003
***************
*** 52,58 ****
  my $version = 0;
  my $old;
  
! my $rc = GetOptions ('help' => \$help, 'version' => \$version, 
                       'old=s' => \$old);
  if ($version) {
      print "0.1\n";
--- 52,58 ----
  my $version = 0;
  my $old;
  
! my $rc = GetOptions ('help' => \$help, 'version' => \$version,
                       'old=s' => \$old);
  if ($version) {
      print "0.1\n";
***************
*** 86,99 ****
      close IN;
  }
  
! # Process current files and remove those @tindex lines which we 
  # know were already present in the files scanned above.
  
  print "Removing old address@hidden 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 (/address@hidden(\S+)/ && $tindex{$1}) {
--- 86,99 ----
      close IN;
  }
  
! # Process current files and remove those @tindex lines which we
  # know were already present in the files scanned above.
  
  print "Removing old address@hidden 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 (/address@hidden(\S+)/ && $tindex{$1}) {
***************
*** 103,109 ****
            $contents = $contents . $_;
        }
      }
!     
      close IN;
  
      if ($modified) {
--- 103,109 ----
            $contents = $contents . $_;
        }
      }
! 
      close IN;
  
      if ($modified) {