From 611b74b9baa16b6d0502a1f7a6bd84e9d34c4e0b Mon Sep 17 00:00:00 2001 From: Vladimir Glazounov Date: Tue, 21 Nov 2006 14:16:27 +0000 Subject: 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 --- scp2/macros/macro.pl | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'scp2/macros') 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 = ) { if ( $line =~ /^\/\/.*completelangiso:/ ) { -- cgit