r68384 - in /trunk/liblivejournal-perl: LiveJournal.pm debian/changelog debian/patches/ debian/patches/date.patch debian/patches/series

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Fri Feb 11 16:40:53 2011
New Revision: 68384

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=68384
Log:
Split out the changes from -2 into a proper patch.

Added:
    trunk/liblivejournal-perl/debian/patches/
    trunk/liblivejournal-perl/debian/patches/date.patch
    trunk/liblivejournal-perl/debian/patches/series
Modified:
    trunk/liblivejournal-perl/LiveJournal.pm
    trunk/liblivejournal-perl/debian/changelog

Modified: trunk/liblivejournal-perl/LiveJournal.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblivejournal-perl/LiveJournal.pm?rev=68384&op=diff
==============================================================================
--- trunk/liblivejournal-perl/LiveJournal.pm (original)
+++ trunk/liblivejournal-perl/LiveJournal.pm Fri Feb 11 16:40:53 2011
@@ -309,6 +309,10 @@
 		substr($args->{subject}, 254) = '';
 	}
 
+	while (my ($k, $v) = each (%$args)) {
+		$content .= "&" . $k . "=" . $v;
+	}
+
   my (undef, $min, $hour, $day, $mon, $year) = localtime(time);
 
 	$year += 1900;
@@ -316,15 +320,11 @@
   $day = sprintf("%02d", $day);
   $min = sprintf("%02d", $min);
 
-	$args->{'year'} ||= $year;
-	$args->{'mon'}  ||= $mon;
-	$args->{'day'}  ||= $day;
-	$args->{'hour'} ||= $hour;
-	$args->{'min'}  ||= $min;
-
-	while (my ($k, $v) = each (%$args)) {
-		$content .= "&" . $k . "=" . $v;
-	}
+	$content .= "&year=$year";
+	$content .= "&mon=$mon";
+	$content .= "&day=$day";
+	$content .= "&hour=$hour";
+	$content .= "&min=$min";
 
 	my $response = $self->_send_mode($content);
 
@@ -419,7 +419,7 @@
 		$content .= "&" . $k . "=" . $v;
 	}
 
-  my (undef, $min, $hour, $day, $mon, $year) = localtime($args->{'date'} || time);
+  my (undef, $min, $hour, $day, $mon, $year) = localtime(time);
 
 	$year += 1900;
   $mon = sprintf("%02d", $mon + 1);

Modified: trunk/liblivejournal-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblivejournal-perl/debian/changelog?rev=68384&op=diff
==============================================================================
--- trunk/liblivejournal-perl/debian/changelog (original)
+++ trunk/liblivejournal-perl/debian/changelog Fri Feb 11 16:40:53 2011
@@ -15,6 +15,7 @@
   * debian/copyright: DEP5 formatting.
   * Don't install README anymore.
   * Add build dependency on libwww-perl.
+  * Split out the changes from -2 into a proper patch.
 
  -- gregor herrmann <gregoa at debian.org>  Fri, 11 Feb 2011 17:13:46 +0100
 

Added: trunk/liblivejournal-perl/debian/patches/date.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblivejournal-perl/debian/patches/date.patch?rev=68384&op=file
==============================================================================
--- trunk/liblivejournal-perl/debian/patches/date.patch (added)
+++ trunk/liblivejournal-perl/debian/patches/date.patch Fri Feb 11 16:40:53 2011
@@ -1,0 +1,51 @@
+Description: Added a 'date' key, based on an idea from Joshua Kwan
+Origin: vendor
+Bug-Debian: http://bugs.debian.org/251001
+Forwarded: no
+Author: Decklin Foster <decklin at red-bean.com>
+Reviewed-by: gregor herrmann <gregoa at debian.org>
+Last-Update: 2011-02-11
+
+--- a/LiveJournal.pm
++++ b/LiveJournal.pm
+@@ -309,10 +309,6 @@
+ 		substr($args->{subject}, 254) = '';
+ 	}
+ 
+-	while (my ($k, $v) = each (%$args)) {
+-		$content .= "&" . $k . "=" . $v;
+-	}
+-
+   my (undef, $min, $hour, $day, $mon, $year) = localtime(time);
+ 
+ 	$year += 1900;
+@@ -320,11 +316,15 @@
+   $day = sprintf("%02d", $day);
+   $min = sprintf("%02d", $min);
+ 
+-	$content .= "&year=$year";
+-	$content .= "&mon=$mon";
+-	$content .= "&day=$day";
+-	$content .= "&hour=$hour";
+-	$content .= "&min=$min";
++	$args->{'year'} ||= $year;
++	$args->{'mon'}  ||= $mon;
++	$args->{'day'}  ||= $day;
++	$args->{'hour'} ||= $hour;
++	$args->{'min'}  ||= $min;
++
++	while (my ($k, $v) = each (%$args)) {
++		$content .= "&" . $k . "=" . $v;
++	}
+ 
+ 	my $response = $self->_send_mode($content);
+ 
+@@ -419,7 +419,7 @@
+ 		$content .= "&" . $k . "=" . $v;
+ 	}
+ 
+-  my (undef, $min, $hour, $day, $mon, $year) = localtime(time);
++  my (undef, $min, $hour, $day, $mon, $year) = localtime($args->{'date'} || time);
+ 
+ 	$year += 1900;
+   $mon = sprintf("%02d", $mon + 1);

Added: trunk/liblivejournal-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblivejournal-perl/debian/patches/series?rev=68384&op=file
==============================================================================
--- trunk/liblivejournal-perl/debian/patches/series (added)
+++ trunk/liblivejournal-perl/debian/patches/series Fri Feb 11 16:40:53 2011
@@ -1,0 +1,1 @@
+date.patch