[SCM] libconfig-inifiles-perl Debian packaging branch, squeeze, updated. debian/2.52-1-3-g395a642

[gregor herrmann]

The following commit has been merged in the squeeze branch:
commit 395a642b95a32592df20b933e11a75d972c53684
Author: gregor herrmann <gregoa at debian.org>
Date:   Mon May 14 17:05:32 2012 +0200

    backport the fix of the fix from 2.73
    
    handling of errors in creating a temporary file changed; this should be
    fixed now
    
     waiting for feedback of the release team again
    
    Git-Dch: Ignore

diff --git a/debian/changelog b/debian/changelog
index 5fd9e90..5742203 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -6,7 +6,7 @@ libconfig-inifiles-perl (2.52-1+squeeze1) stable-proposed-updates; urgency=low
     door for potential exploits. -- CVE-2012-2451, CWE-377
     (Closes: #671255)
 
- -- gregor herrmann <gregoa at debian.org>  Sun, 06 May 2012 15:11:54 +0200
+ -- gregor herrmann <gregoa at debian.org>  Mon, 14 May 2012 16:53:42 +0200
 
 libconfig-inifiles-perl (2.52-1) unstable; urgency=low
 
diff --git a/lib/Config/IniFiles.pm b/lib/Config/IniFiles.pm
index 6026480..da3f47e 100644
--- a/lib/Config/IniFiles.pm
+++ b/lib/Config/IniFiles.pm
@@ -1197,10 +1197,20 @@ sub WriteConfig {
           #carp "Store mode $self->{file_mode} prohibits writing config";
     }
   
-    my ($fh, $new_file) = tempfile(
-      "temp.ini-XXXXXXXXXX",
-      DIR => dirname($file)
-    );
+    my ($fh, $new_file);
+    eval {
+        ($fh, $new_file) = tempfile(
+            "temp.ini-XXXXXXXXXX",
+            DIR => dirname($file)
+        );
+    };
+
+    if ($@)
+    {
+        carp( "Unable to write temp config file: $!" );
+        return undef;
+    }
+
     my $oldfh = select($fh);
     $self->OutputConfig($parms{-delta});
     close($fh);

-- 
libconfig-inifiles-perl Debian packaging