r69390 - in /trunk/liblockfile-simple-perl/debian: changelog patches/ patches/handle-print-error.patch patches/series source/ source/format

[mxey-guest at users.alioth.debian.org]

Author: mxey-guest
Date: Wed Feb 23 14:20:05 2011
New Revision: 69390

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=69390
Log:
* Switch to source format 3.0 (quilt)
* Add (modified) patch by Baurzhan Ismagulov <ibr at radix50.net> to detect
  lock file creation errors (closes: #294972)

Added:
    trunk/liblockfile-simple-perl/debian/patches/
    trunk/liblockfile-simple-perl/debian/patches/handle-print-error.patch
    trunk/liblockfile-simple-perl/debian/patches/series
    trunk/liblockfile-simple-perl/debian/source/
    trunk/liblockfile-simple-perl/debian/source/format
Modified:
    trunk/liblockfile-simple-perl/debian/changelog

Modified: trunk/liblockfile-simple-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblockfile-simple-perl/debian/changelog?rev=69390&op=diff
==============================================================================
--- trunk/liblockfile-simple-perl/debian/changelog (original)
+++ trunk/liblockfile-simple-perl/debian/changelog Wed Feb 23 14:20:05 2011
@@ -14,6 +14,11 @@
   * debian/control: Changed: Replace versioned (build-)dependency on
     perl (>= 5.6.0-{12,16}) with an unversioned dependency on perl (as
     permitted by Debian Policy 3.8.3).
+
+  [ Maximilian Gass ]
+  * Switch to source format 3.0 (quilt)
+  * Add (modified) patch by Baurzhan Ismagulov <ibr at radix50.net> to detect
+    lock file creation errors (closes: #294972)
 
  -- Rene Mayorga <rmayorga at debian.org>  Tue, 20 Jan 2009 01:27:46 -0600
 

Added: trunk/liblockfile-simple-perl/debian/patches/handle-print-error.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblockfile-simple-perl/debian/patches/handle-print-error.patch?rev=69390&op=file
==============================================================================
--- trunk/liblockfile-simple-perl/debian/patches/handle-print-error.patch (added)
+++ trunk/liblockfile-simple-perl/debian/patches/handle-print-error.patch Wed Feb 23 14:20:05 2011
@@ -1,0 +1,23 @@
+Description: Detect lock file creation errors
+Author: Baurzhan Ismagulov <ibr at radix50.net>
+Author: Maximilian Gass <mxey at cloudconnected.org>
+--- a/Simple.pm
++++ b/Simple.pm
+@@ -422,7 +422,16 @@
+ 		# Attempt to create lock
+ 		if (open(FILE, ">$lockfile")) {
+ 			local $\ = undef;
+-			print FILE "$stamp\n";
++			my $buf = "$stamp\n";
++			if (!syswrite(FILE, $buf, length($buf))) {
++				&$wfunc("writing to $lockfile: $!\n");
++				close(FILE);
++				if (!unlink($lockfile)) {
++					&$wfunc("removing $lockfile: $!");
++				}
++				umask($mask);
++				return 0;  # Couldn't write to file
++			}
+ 			close FILE;
+ 			open(FILE, $lockfile);	# Check lock
+ 			my $l;

Added: trunk/liblockfile-simple-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblockfile-simple-perl/debian/patches/series?rev=69390&op=file
==============================================================================
--- trunk/liblockfile-simple-perl/debian/patches/series (added)
+++ trunk/liblockfile-simple-perl/debian/patches/series Wed Feb 23 14:20:05 2011
@@ -1,0 +1,1 @@
+handle-print-error.patch

Added: trunk/liblockfile-simple-perl/debian/source/format
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblockfile-simple-perl/debian/source/format?rev=69390&op=file
==============================================================================
--- trunk/liblockfile-simple-perl/debian/source/format (added)
+++ trunk/liblockfile-simple-perl/debian/source/format Wed Feb 23 14:20:05 2011
@@ -1,0 +1,1 @@
+3.0 (quilt)