Skip Menu |

Preferred bug tracker

Please visit the preferred bug tracker to report your issue.

This queue is for tickets about the CPAN-Uploader CPAN distribution.

Report information
The Basics
Id: 40702
Status: resolved
Priority: 0/
Queue: CPAN-Uploader

People
Owner: Nobody in particular
Requestors: yanick [...] babyl.dyndns.org
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Subject: [PATCH] correction on upload_file() pod
Date: Wed, 5 Nov 2008 23:47:29 -0500
To: bug-CPAN-Uploader [...] rt.cpan.org
From: Yanick Champoux <yanick [...] babyl.dyndns.org>
The documentation has the use of '%arg' inverted (it should be used for the class calls, and not as a method). I've also include in the patch a check in upload_file() for when it's called as a class call without %args (as it is doomed to fail without the credentials) --- lib/CPAN/Uploader.pm | 10 +++++++--- 1 files changed, 7 insertions(+), 3 deletions(-) diff --git a/lib/CPAN/Uploader.pm b/lib/CPAN/Uploader.pm index ecdd568..54b322c 100644 --- a/lib/CPAN/Uploader.pm +++ b/lib/CPAN/Uploader.pm @@ -17,9 +17,13 @@ my $PAUSE_ADD_URI = 'http://pause.perl.org/pause/authenquery'; sub upload_file { my ($self, $file, $arg) = @_; - Carp::confess("don't supply %arg when calling upload_file on an object") + Carp::confess(q{don't supply %arg when calling upload_file on an object}) if $arg and ref $self; + # class call with no args is no good + Carp::confess(q{need to supply %arg when calling upload_file from the class}) + if not ( ref $self ) and not $arg; + $self = $self->new($arg) if $arg; $self->log("registering upload with PAUSE web server"); @@ -131,9 +135,9 @@ into this module. =head2 upload_file - CPAN::Uploader->upload_file($file); + CPAN::Uploader->upload_file($file, \%arg); - $uploader->upload_file($file, \%arg); + $uploader->upload_file($file); Valid arguments are: -- 1.6.0.3
applied, released -- rjbs