r71917 - in /branches/upstream/libapp-nopaste-perl/current: Changes META.yml lib/App/Nopaste.pm lib/App/Nopaste/Service/Gist.pm

[carnil at users.alioth.debian.org]

Author: carnil
Date: Wed Mar 23 13:22:18 2011
New Revision: 71917

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=71917
Log:
[svn-upgrade] new version libapp-nopaste-perl (0.28)

Modified:
    branches/upstream/libapp-nopaste-perl/current/Changes
    branches/upstream/libapp-nopaste-perl/current/META.yml
    branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste.pm
    branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste/Service/Gist.pm

Modified: branches/upstream/libapp-nopaste-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libapp-nopaste-perl/current/Changes?rev=71917&op=diff
==============================================================================
--- branches/upstream/libapp-nopaste-perl/current/Changes (original)
+++ branches/upstream/libapp-nopaste-perl/current/Changes Wed Mar 23 13:22:18 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: branches/upstream/libapp-nopaste-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libapp-nopaste-perl/current/META.yml?rev=71917&op=diff
==============================================================================
--- branches/upstream/libapp-nopaste-perl/current/META.yml (original)
+++ branches/upstream/libapp-nopaste-perl/current/META.yml Wed Mar 23 13:22:18 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: branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste.pm?rev=71917&op=diff
==============================================================================
--- branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste.pm (original)
+++ branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste.pm Wed Mar 23 13:22:18 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: branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste/Service/Gist.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste/Service/Gist.pm?rev=71917&op=diff
==============================================================================
--- branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste/Service/Gist.pm (original)
+++ branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste/Service/Gist.pm Wed Mar 23 13:22:18 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;