Parent Directory | Revision Log | 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 | } | } |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |