From 3818c35e9f3f675daae6f7123be845dd267cac89 Mon Sep 17 00:00:00 2001 From: Oliver Bolte Date: Fri, 15 Sep 2006 13:08:39 +0000 Subject: [PATCH] INTEGRATION: CWS ause067 (1.2.294); FILE MERGED 2006/09/13 12:27:18 hjs 1.2.294.1: #i69505# copy only if required; restore filedate of source --- solenv/bin/hicontrast-to-theme.pl | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/solenv/bin/hicontrast-to-theme.pl b/solenv/bin/hicontrast-to-theme.pl index 1df0e6aedfb7..1741715f2fb2 100644 --- a/solenv/bin/hicontrast-to-theme.pl +++ b/solenv/bin/hicontrast-to-theme.pl @@ -7,9 +7,9 @@ # # $RCSfile: hicontrast-to-theme.pl,v $ # -# $Revision: 1.2 $ +# $Revision: 1.3 $ # -# last change: $Author: kz $ $Date: 2006-01-05 18:15:56 $ +# last change: $Author: obo $ $Date: 2006-09-15 14:08:39 $ # # The Contents of this file are made available subject to # the terms of GNU Lesser General Public License Version 2.1. @@ -101,6 +101,8 @@ $dst = File::Spec->rel2abs( $dst ); [ "dah[0-9].*.png", "dah", "da" ] ); +my (@from_stat, @to_stat); + sub copy_normalized { $file = $_; for $hc ( @hc_table ) { @@ -115,7 +117,12 @@ sub copy_normalized { ( my $copy = $file ) =~ s/$from/$to/; $copy = File::Spec->catfile( $dir, $copy ); - copy( $file, $copy ) || die $!; + @from_stat = stat($file); + @to_stat = stat($copy); + if ( $from_stat[9] > $to_stat[9] ) { + copy( $file, $copy ) || die $!; + utime( $from_stat[9], $from_stat[9], $copy ); + } last; }