Parent Directory | Revision Log | Patch
revision 1.58 by akim, Fri Mar 8 11:48:17 2002 UTC | revision 1.59 by akim, Fri Mar 8 12:01:23 2002 UTC | |
---|---|---|
# | Line 622 sub handle_m4 ($@) | Line 622 sub handle_m4 ($@) |
622 | } | } |
623 | ||
624 | # Everything went ok: preserve the outputs. | # Everything went ok: preserve the outputs. |
625 | foreach ($tcache, $ocache) | foreach my $file (map { $_ . $req->id } ($tcache, $ocache)) |
626 | { | { |
627 | use File::Copy; | use File::Copy; |
628 | $_ .= $req->id; | move ("${file}t", "$file") |
629 | move ("${_}t", "$_") | or die "$me: cannot not rename ${file}t as $file: $!\n"; |
or die "$me: cannot not rename ${_}t as $_: $!\n"; | ||
630 | } | } |
631 | } | } |
632 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |