r68384 - in /trunk/liblivejournal-perl: LiveJournal.pm debian/changelog debian/patches/ debian/patches/date.patch debian/patches/series
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Fri Feb 11 16:41:07 UTC 2011
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
More information about the Pkg-perl-cvs-commits
mailing list