diff options
author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-27 16:23:22 +0000 |
---|---|---|
committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-27 16:23:22 +0000 |
commit | e42129241681dde7adae7d20697e7b421682fbb4 (patch) | |
tree | af1fe815a5e639e68e59fabd8395ec69458b3e5e /pdb/util.pl | |
parent | Initial commit. (diff) | |
download | gimp-e42129241681dde7adae7d20697e7b421682fbb4.tar.xz gimp-e42129241681dde7adae7d20697e7b421682fbb4.zip |
Adding upstream version 2.10.22.upstream/2.10.22upstream
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'pdb/util.pl')
-rw-r--r-- | pdb/util.pl | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/pdb/util.pl b/pdb/util.pl new file mode 100644 index 0000000..69b26f4 --- /dev/null +++ b/pdb/util.pl @@ -0,0 +1,52 @@ +# GIMP - The GNU Image Manipulation Program +# Copyright (C) 1998-2003 Manish Singh <yosh@gimp.org> + +# This program is free software: you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. + +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. + +# You should have received a copy of the GNU General Public License +# along with this program. If not, see <https://www.gnu.org/licenses/>. + +package Gimp::CodeGen::util; + +use File::Basename 'basename'; +use File::Copy 'cp'; +use File::Compare 'cmp'; + +$DEBUG_OUTPUT = exists $ENV{PDBGEN_BACKUP} ? $ENV{PDBGEN_BACKUP} : 1; + +$FILE_EXT = ".tmp.$$"; + +sub write_file { + my $file = shift; + my $destdir = shift; + + my $realfile = basename($file); + $realfile =~ s/$FILE_EXT$//; + $realfile = "$destdir/$realfile"; + + if (-e $realfile) { + if (cmp($realfile, $file)) { + cp($realfile, "$realfile~") if $DEBUG_OUTPUT; + cp($file, $realfile); + print "Wrote $realfile\n"; + } + else { + print "No changes to $realfile\n"; + } + unlink $file; + } + else { + rename $file, $realfile; + print "Wrote $realfile\n"; + } +} + +1; |