r49365 - in /branches/upstream/libjira-client-perl/current: Changes META.yml README lib/JIRA/Client.pm

[jawnsy-guest at users.alioth.debian.org]

Author: jawnsy-guest
Date: Fri Dec 25 14:32:06 2009
New Revision: 49365

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=49365
Log:
[svn-upgrade] Integrating new upstream version, libjira-client-perl (0.24)

Modified:
    branches/upstream/libjira-client-perl/current/Changes
    branches/upstream/libjira-client-perl/current/META.yml
    branches/upstream/libjira-client-perl/current/README
    branches/upstream/libjira-client-perl/current/lib/JIRA/Client.pm

Modified: branches/upstream/libjira-client-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libjira-client-perl/current/Changes?rev=49365&op=diff
==============================================================================
--- branches/upstream/libjira-client-perl/current/Changes (original)
+++ branches/upstream/libjira-client-perl/current/Changes Fri Dec 25 14:32:06 2009
@@ -1,4 +1,9 @@
 Revision history for JIRA-Client
+
+0.24    2009-12-24
+
+	Corrects one typo suggested by Andrey Belous and denies the
+	attachment of empty files, as suggested by Jon Connell.
 
 0.23    2009-12-12
 

Modified: branches/upstream/libjira-client-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libjira-client-perl/current/META.yml?rev=49365&op=diff
==============================================================================
--- branches/upstream/libjira-client-perl/current/META.yml (original)
+++ branches/upstream/libjira-client-perl/current/META.yml Fri Dec 25 14:32:06 2009
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                JIRA-Client
-version:             0.23
+version:             0.24
 abstract:            An extended interface to JIRA's SOAP API.
 license:             ~
 author:              

Modified: branches/upstream/libjira-client-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libjira-client-perl/current/README?rev=49365&op=diff
==============================================================================
--- branches/upstream/libjira-client-perl/current/README (original)
+++ branches/upstream/libjira-client-perl/current/README Fri Dec 25 14:32:06 2009
@@ -1,6 +1,6 @@
 Name:    JIRA-Client
 What:    A OO interface to JIRA's SOAP API.
-Version: 0.23
+Version: 0.24
 Author:  Gustavo Chaves <gnustavo at cpan.org>
 
 JIRA is a proprietary bug tracking system from Atlassian

Modified: branches/upstream/libjira-client-perl/current/lib/JIRA/Client.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libjira-client-perl/current/lib/JIRA/Client.pm?rev=49365&op=diff
==============================================================================
--- branches/upstream/libjira-client-perl/current/lib/JIRA/Client.pm (original)
+++ branches/upstream/libjira-client-perl/current/lib/JIRA/Client.pm Fri Dec 25 14:32:06 2009
@@ -11,11 +11,11 @@
 
 =head1 VERSION
 
-Version 0.23
-
-=cut
-
-our $VERSION = '0.23';
+Version 0.24
+
+=cut
+
+our $VERSION = '0.24';
 
 =head1 SYNOPSIS
 
@@ -107,11 +107,6 @@
 
 =cut
 
-sub _fault_details {
-    my $r = shift;
-    return join(', ', $r->faultcode(), $r->faultstring());
-}
-
 sub new {
     my ($class, $base_url, $user, $pass) = @_;
 
@@ -121,12 +116,12 @@
     %{$soap->typelookup()} = (default => [0, sub {1}, 'as_string']);
 
     my $auth = $soap->login($user, $pass);
-    croak _fault_details($auth), "\n"
+    croak $auth->faultcode(), ', ', $auth->faultstring()
         if defined $auth->fault();
 
     my $self = {
         soap  => $soap,
-        auth  => scalar($auth->result()),
+        auth  => $auth->result(),
         iter  => undef,
         cache => {
             components => {}, # project_key => {name => RemoteComponent}
@@ -257,7 +252,7 @@
 	$hash->{duedate} = join(
 	    '/',
 	    $day,
-	    qw/zero Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dez/[$month],
+	    qw/zero Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/[$month],
 	    substr($year, 2, 2),
 	);
     }
@@ -894,6 +889,8 @@
 	}
 	defined $chars_read
 	    or croak "Error reading '$filenames[$i]': $!\n";
+	length $attachment
+	    or croak "Can't attach empty file '$filenames[$i]'\n";
 	$attachments[$i] = $attachment;
     }
 
@@ -1166,7 +1163,7 @@
     }
 
     my $call = $self->{soap}->call($method, $self->{auth}, @args);
-    croak _fault_details($call), "\n"
+    croak $call->faultcode(), ', ', $call->faultstring()
         if defined $call->fault();
     return $call->result();
 }