diff options
| author | Vladimir Glazounov <vg@openoffice.org> | 2006-11-21 14:16:27 +0000 |
|---|---|---|
| committer | Vladimir Glazounov <vg@openoffice.org> | 2006-11-21 14:16:27 +0000 |
| commit | 611b74b9baa16b6d0502a1f7a6bd84e9d34c4e0b (patch) | |
| tree | 8a40516dcac4f3a9c1952cf27a1d79e006a91c5b | |
| parent | 986eb3f58cd4228ea29314651ff1dd350f3ecc4b (diff) | |
INTEGRATION: CWS ause071 (1.5.526); FILE MERGED
2006/11/03 18:36:14 hjs 1.5.526.1: #i71145# regenerate if script was changed
| -rw-r--r-- | scp2/macros/macro.pl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/scp2/macros/macro.pl b/scp2/macros/macro.pl index b5e79a3feceb..ac755b4ca3a2 100644 --- a/scp2/macros/macro.pl +++ b/scp2/macros/macro.pl @@ -4,9 +4,9 @@ # # $RCSfile: macro.pl,v $ # -# $Revision: 1.6 $ +# $Revision: 1.7 $ # -# last change: $Author: vg $ $Date: 2006-11-01 13:52:02 $ +# last change: $Author: vg $ $Date: 2006-11-21 15:16:27 $ # # The Contents of this file are made available subject to # the terms of GNU Lesser General Public License Version 2.1. @@ -248,6 +248,9 @@ sub startup_check usage() if $i<2; usage() if "$outfile" eq ""; if ( -f "$outfile" ) { + # changed script - run allways + return if (stat($0))[9] > (stat("$outfile"))[9] ; + open OLDFILE, "$outfile" or die "$0 - ERROR: $outfile exists but isn't readable.\n"; while ( $line = <OLDFILE> ) { if ( $line =~ /^\/\/.*completelangiso:/ ) { |