r71919 - in /trunk/libapp-nopaste-perl: Changes META.yml debian/changelog lib/App/Nopaste.pm lib/App/Nopaste/Service/Gist.pm

[carnil at users.alioth.debian.org]

Author: carnil
Date: Wed Mar 23 13:49:31 2011
New Revision: 71919

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=71919
Log:
New upstream release

Modified:
    trunk/libapp-nopaste-perl/Changes
    trunk/libapp-nopaste-perl/META.yml
    trunk/libapp-nopaste-perl/debian/changelog
    trunk/libapp-nopaste-perl/lib/App/Nopaste.pm
    trunk/libapp-nopaste-perl/lib/App/Nopaste/Service/Gist.pm

Modified: trunk/libapp-nopaste-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libapp-nopaste-perl/Changes?rev=71919&op=diff
==============================================================================
--- trunk/libapp-nopaste-perl/Changes (original)
+++ trunk/libapp-nopaste-perl/Changes Wed Mar 23 13:49:31 2011
@@ -1,4 +1,7 @@
 Revision history for App-Nopaste
+
+0.28    Tue Mar 22 2011
+        If LWP is producing errors, *report them* (Ricardo SIGNES)
 
 0.27    Thu Mar 10 2011
         Correct path to Pastie (Sebastian Paaske Tørholm )

Modified: trunk/libapp-nopaste-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libapp-nopaste-perl/META.yml?rev=71919&op=diff
==============================================================================
--- trunk/libapp-nopaste-perl/META.yml (original)
+++ trunk/libapp-nopaste-perl/META.yml Wed Mar 23 13:49:31 2011
@@ -33,4 +33,4 @@
   homepage: http://github.com/sartak/app-nopaste/tree
   license: http://dev.perl.org/licenses/
   repository: git://github.com/sartak/app-nopaste.git
-version: 0.27
+version: 0.28

Modified: trunk/libapp-nopaste-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libapp-nopaste-perl/debian/changelog?rev=71919&op=diff
==============================================================================
--- trunk/libapp-nopaste-perl/debian/changelog (original)
+++ trunk/libapp-nopaste-perl/debian/changelog Wed Mar 23 13:49:31 2011
@@ -1,3 +1,9 @@
+libapp-nopaste-perl (0.28-1) UNRELEASED; urgency=low
+
+  * New upstream release
+
+ -- Salvatore Bonaccorso <carnil at debian.org>  Wed, 23 Mar 2011 14:23:24 +0100
+
 libapp-nopaste-perl (0.27-2) unstable; urgency=low
 
   * debian/control: Fix typo in Depends: libbrowser-open-perl. Missing 's'.

Modified: trunk/libapp-nopaste-perl/lib/App/Nopaste.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libapp-nopaste-perl/lib/App/Nopaste.pm?rev=71919&op=diff
==============================================================================
--- trunk/libapp-nopaste-perl/lib/App/Nopaste.pm (original)
+++ trunk/libapp-nopaste-perl/lib/App/Nopaste.pm Wed Mar 23 13:49:31 2011
@@ -7,7 +7,7 @@
 use base 'Exporter';
 our @EXPORT_OK = 'nopaste';
 
-our $VERSION = '0.27';
+our $VERSION = '0.28';
 
 sub nopaste {
     # process arguments

Modified: trunk/libapp-nopaste-perl/lib/App/Nopaste/Service/Gist.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libapp-nopaste-perl/lib/App/Nopaste/Service/Gist.pm?rev=71919&op=diff
==============================================================================
--- trunk/libapp-nopaste-perl/lib/App/Nopaste/Service/Gist.pm (original)
+++ trunk/libapp-nopaste-perl/lib/App/Nopaste/Service/Gist.pm Wed Mar 23 13:49:31 2011
@@ -71,6 +71,10 @@
 sub return {
     my ($self, $res) = @_;
 
+    if (($res->header('Client-Warning') || '') eq 'Internal response') {
+      return (0, "LWP Error: " . $res->content);
+    }
+
     my ($id) = $res->content =~ qr{"repo":"([0-9a-f]+)"};
 
     return (0, "Could not find paste link.") if !$id;