← Back to branch summary

~ubuntu-branches/ubuntu/vivid/gimp/vivid

« back to all changes in this revision

Viewing changes to tools/pdbgen/util.pl

  • Committer: Package Import Robot
  • Author(s): Jordi Mallach
  • Date: 2012-05-08 18:50:03 UTC
  • mto: (1.1.26) (0.5.1 experimental)
  • mto: This revision was merged to the branch mainline in revision 71.
  • Revision ID: package-import@ubuntu.com-20120508185003-tltkvbaysf8d2426
Import upstream version 2.8.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
tools/pdbgen/util.pl
1
1
# GIMP - The GNU Image Manipulation Program
2
2
# Copyright (C) 1998-2003 Manish Singh <yosh@gimp.org>
3
3
 
4
 
# This program is free software; you can redistribute it and/or modify
 
4
# This program is free software: you can redistribute it and/or modify
5
5
# it under the terms of the GNU General Public License as published by
6
 
# the Free Software Foundation; either version 2 of the License, or
 
6
# the Free Software Foundation; either version 3 of the License, or
7
7
# (at your option) any later version.
8
8
 
9
9
# This program is distributed in the hope that it will be useful,
12
12
# GNU General Public License for more details.
13
13
 
14
14
# You should have received a copy of the GNU General Public License
15
 
# along with this program; if not, write to the Free Software
16
 
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 
15
# along with this program.  If not, see <http://www.gnu.org/licenses/>.
17
16
 
18
17
package Gimp::CodeGen::util;
19
18
 
 
19
use File::Basename 'basename';
20
20
use File::Copy 'cp';
21
21
use File::Compare 'cmp';
22
22
 
25
25
$FILE_EXT = ".tmp.$$";
26
26
 
27
27
sub write_file {
28
 
    my $file = shift; my $realfile = $file;
 
28
    my $file = shift;
 
29
    my $destdir = shift;
 
30
 
 
31
    my $realfile = basename($file);
29
32
    $realfile =~ s/$FILE_EXT$//;
 
33
    $realfile = "$destdir/$realfile";
 
34
 
30
35
    if (-e $realfile) {
31
36
        if (cmp($realfile, $file)) {
32
37
            cp($realfile, "$realfile~") if $DEBUG_OUTPUT;