From 5c1676dfe6d2f3c837a5e074117b45613fd29a72 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sun, 7 Apr 2024 20:30:19 +0200 Subject: Adding upstream version 2.10.34. Signed-off-by: Daniel Baumann --- pdb/util.pl | 52 ++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 52 insertions(+) create mode 100644 pdb/util.pl (limited to 'pdb/util.pl') 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 + +# 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 . + +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; -- cgit v1.2.3