/[papo]/papo/neb/neb.pl
ViewVC logotype

Diff of /papo/neb/neb.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by jlenton, Wed Apr 30 22:27:58 2003 UTC revision 1.11 by jlenton, Wed May 14 23:10:22 2003 UTC
# Line 67  if ($output) Line 67  if ($output)
67      open($fd, "> $output") || die($!);      open($fd, "> $output") || die($!);
68      $old_fd = select $fd;      $old_fd = select $fd;
69  }  }
70    else
71    {
72        $old_fd = select;
73    }
74    
75  undef $INPUT_RECORD_SEPARATOR;  undef $INPUT_RECORD_SEPARATOR;
76  foreach (<>)  while (<>)
77  {  {
78      my $neb = neb->new;      my $neb = neb->new;
79      $neb->root($ARGV);      $neb->root($ARGV);
# Line 113  foreach (<>) Line 117  foreach (<>)
117              unless $sysdeps;              unless $sysdeps;
118    
119          select $old_fd;          select $old_fd;
120          print join(" \\\n", ("$output:", @SUBS, $0, @h)), "\n";          print join(" \\\n", ("$output:", @SUBS, $0, @h)), "\n\n";
121      }      }
122    
123        undef $output;
124  }  }

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26