1 |
# autoconf -- create `configure' using m4 macros |
# autoconf -- create `configure' using m4 macros |
2 |
# Copyright 2001 Free Software Foundation, Inc. |
# Copyright (C) 2001, 2002 Free Software Foundation, Inc. |
3 |
|
|
4 |
# This program is free software; you can redistribute it and/or modify |
# This program is free software; you can redistribute it and/or modify |
5 |
# it under the terms of the GNU General Public License as published by |
# it under the terms of the GNU General Public License as published by |
431 |
if (-f "$to" && compare ("$from", "$to") == 0) |
if (-f "$to" && compare ("$from", "$to") == 0) |
432 |
{ |
{ |
433 |
# File didn't change, so don't update its mod time. |
# File didn't change, so don't update its mod time. |
434 |
print STDERR "$me: `$to' is unchanged\n"; |
verbose "`$to' is unchanged"; |
435 |
unlink ($from) |
unlink ($from) |
436 |
or error "cannot not remove $from: $!"; |
or error "cannot not remove $from: $!"; |
437 |
return |
return |
444 |
or error "cannot not backup $to: $!"; |
or error "cannot not backup $to: $!"; |
445 |
move ("$from", "$to") |
move ("$from", "$to") |
446 |
or error "cannot not rename $from as $to: $!"; |
or error "cannot not rename $from as $to: $!"; |
447 |
print STDERR "$me: `$to' is updated\n"; |
verbose "`$to' is updated"; |
448 |
} |
} |
449 |
else |
else |
450 |
{ |
{ |
451 |
move ("$from", "$to") |
move ("$from", "$to") |
452 |
or error "cannot not rename $from as $to: $!"; |
or error "cannot not rename $from as $to: $!"; |
453 |
print STDERR "$me: `$to' is created\n"; |
verbose "`$to' is created"; |
454 |
} |
} |
455 |
} |
} |
456 |
|
|