r17970 - in /trunk/image-size/debian: changelog patches/imgsize-fixes
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Wed Mar 26 17:12:12 UTC 2008
Author: gregoa-guest
Date: Wed Mar 26 17:12:11 2008
New Revision: 17970
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=17970
Log:
Update patch imgsize-fixes to make it compatbile to the new enabled
warnings; based on a patch from Reid Priedhorsky, thanks!
Closes: #472760
Modified:
trunk/image-size/debian/changelog
trunk/image-size/debian/patches/imgsize-fixes
Modified: trunk/image-size/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/image-size/debian/changelog?rev=17970&op=diff
==============================================================================
--- trunk/image-size/debian/changelog (original)
+++ trunk/image-size/debian/changelog Wed Mar 26 17:12:11 2008
@@ -1,3 +1,11 @@
+image-size (3.1.1-2) UNRELEASED; urgency=low
+
+ * Update patch imgsize-fixes to make it compatbile to the new enabled
+ warnings; based on a patch from Reid Priedhorsky, thanks!
+ Closes: #472760
+
+ -- gregor herrmann <gregor+debian at comodo.priv.at> Wed, 26 Mar 2008 17:57:00 +0100
+
image-size (3.1.1-1) unstable; urgency=low
* New upstream release.
Modified: trunk/image-size/debian/patches/imgsize-fixes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/image-size/debian/patches/imgsize-fixes?rev=17970&op=diff
==============================================================================
--- trunk/image-size/debian/patches/imgsize-fixes (original)
+++ trunk/image-size/debian/patches/imgsize-fixes Wed Mar 26 17:12:11 2008
@@ -50,7 +50,7 @@
+{
+ my ($html) = html_imgsize($_[0]);
+
-+ (defined $html) ? $html : ($error = 1 and "error");
++ (defined $html) ? $html : ("error", $error = 1);
+}
+
sub return_attr
@@ -59,7 +59,7 @@
(defined $width) ?
- "(-width => $width, -height => $height)" : "error: $err";
-+ "(-width => $width, -height => $height)" : ($error = 1 and "error: $err");
++ "(-width => $width, -height => $height)" : ("error: $err", $error = 1);
}
sub return_imgsize
@@ -67,7 +67,7 @@
my ($width, $height, $err) = imgsize($_[0]);
- (defined $width) ? "$width $height" : "error: $err";
-+ (defined $width) ? "$width $height" : ($error = 1 and "error: $err");
++ (defined $width) ? "$width $height" : ("error: $err", $error = 1);
}
sub return_fmt
@@ -75,5 +75,5 @@
my ($width, $height, $err) = imgsize($_[0]);
- (defined $width) ? sprintf($opt_f, $width, $height, $err) : "error: $err";
-+ (defined $width) ? sprintf($opt_f, $width, $height, $err) : ($error = 1 and "error: $err");
++ (defined $width) ? sprintf($opt_f, $width, $height, $err) : ("error: $err", $error = 1);
}
More information about the Pkg-perl-cvs-commits
mailing list