r57630 - in /trunk/libcpan-uploader-perl: Changes MANIFEST META.json META.yml Makefile.PL README bin/cpan-upload debian/changelog debian/control lib/CPAN/Uploader.pm t/release-pod-coverage.t t/release-pod-syntax.t
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Fri May 7 14:47:56 UTC 2010
Author: jawnsy-guest
Date: Fri May 7 14:47:48 2010
New Revision: 57630
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=57630
Log:
* New upstream release
* Drop B-D-I on Test::Pod::Coverage
Removed:
trunk/libcpan-uploader-perl/t/release-pod-coverage.t
Modified:
trunk/libcpan-uploader-perl/Changes
trunk/libcpan-uploader-perl/MANIFEST
trunk/libcpan-uploader-perl/META.json
trunk/libcpan-uploader-perl/META.yml
trunk/libcpan-uploader-perl/Makefile.PL
trunk/libcpan-uploader-perl/README
trunk/libcpan-uploader-perl/bin/cpan-upload
trunk/libcpan-uploader-perl/debian/changelog
trunk/libcpan-uploader-perl/debian/control
trunk/libcpan-uploader-perl/lib/CPAN/Uploader.pm
trunk/libcpan-uploader-perl/t/release-pod-syntax.t
Modified: trunk/libcpan-uploader-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcpan-uploader-perl/Changes?rev=57630&op=diff
==============================================================================
--- trunk/libcpan-uploader-perl/Changes (original)
+++ trunk/libcpan-uploader-perl/Changes Fri May 7 14:47:48 2010
@@ -1,4 +1,10 @@
Revision history for CPAN-Uploader
+
+0.101260 2010-05-06 22:48:37 America/New_York
+ move config file reading into CPAN::Uploader and out of the bin
+ better error message if no username is provided
+ no longer fails if ~/.pauserc is missing
+ eliminate spurious warnings
0.100760 2010-03-17 12:14:52 America/New_York
fix internal log_debug to not try logging $self (thanks, Chris
Modified: trunk/libcpan-uploader-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcpan-uploader-perl/MANIFEST?rev=57630&op=diff
==============================================================================
--- trunk/libcpan-uploader-perl/MANIFEST (original)
+++ trunk/libcpan-uploader-perl/MANIFEST Fri May 7 14:47:48 2010
@@ -9,5 +9,4 @@
dist.ini
lib/CPAN/Uploader.pm
t/00-load.t
-t/release-pod-coverage.t
t/release-pod-syntax.t
Modified: trunk/libcpan-uploader-perl/META.json
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcpan-uploader-perl/META.json?rev=57630&op=diff
==============================================================================
--- trunk/libcpan-uploader-perl/META.json (original)
+++ trunk/libcpan-uploader-perl/META.json Fri May 7 14:47:48 2010
@@ -1,34 +1,202 @@
{
- "resources" : {
- "repository" : "git://git.codesimply.com/CPAN-Uploader.git"
- },
- "meta-spec" : {
- "version" : 1.4,
- "url" : "http://module-build.sourceforge.net/META-spec-v1.4.html"
- },
- "generated_by" : "Dist::Zilla version 1.100730",
- "version" : "0.100760",
- "name" : "CPAN-Uploader",
+ "abstract" : "upload things to the CPAN",
"author" : [
"Ricardo SIGNES <rjbs at cpan.org>"
],
+ "build_requires" : {
+ "Test::More" : "0"
+ },
+ "configure_requires" : {
+ "ExtUtils::MakeMaker" : "6.31"
+ },
+ "generated_by" : "Dist::Zilla version 2.101240",
"license" : "perl",
- "build_requires" : {},
+ "meta-spec" : {
+ "url" : "http://module-build.sourceforge.net/META-spec-v1.4.html",
+ "version" : 1.4
+ },
+ "name" : "CPAN-Uploader",
+ "recommends" : {},
"requires" : {
+ "Carp" : "0",
+ "Data::Dumper" : "0",
+ "File::Basename" : "0",
"File::Spec" : "0",
- "Data::Dumper" : "0",
+ "Getopt::Long::Descriptive" : "0.084",
+ "HTTP::Request::Common" : "0",
"HTTP::Status" : "0",
- "Carp" : "0",
- "HTTP::Request::Common" : "0",
- "Test::More" : "0",
"LWP::UserAgent" : "0",
- "Getopt::Long::Descriptive" : "0.084",
- "File::Basename" : "0",
"Term::ReadKey" : "0"
},
- "abstract" : "upload things to the CPAN",
- "configure_requires" : {
- "ExtUtils::MakeMaker" : "6.11"
+ "resources" : {
+ "repository" : "git://git.codesimply.com/CPAN-Uploader.git"
+ },
+ "version" : "0.101260",
+ "x_Dist_Zilla" : {
+ "plugins" : [
+ {
+ "class" : "Dist::Zilla::Plugin::GatherDir",
+ "name" : "@RJBS/@Basic/GatherDir",
+ "version" : "2.101240"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::PruneCruft",
+ "name" : "@RJBS/@Basic/PruneCruft",
+ "version" : "2.101240"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::ManifestSkip",
+ "name" : "@RJBS/@Basic/ManifestSkip",
+ "version" : "2.101240"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::MetaYAML",
+ "name" : "@RJBS/@Basic/MetaYAML",
+ "version" : "2.101240"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::License",
+ "name" : "@RJBS/@Basic/License",
+ "version" : "2.101240"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Readme",
+ "name" : "@RJBS/@Basic/Readme",
+ "version" : "2.101240"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::ExtraTests",
+ "name" : "@RJBS/@Basic/ExtraTests",
+ "version" : "2.101240"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::ExecDir",
+ "name" : "@RJBS/@Basic/ExecDir",
+ "version" : "2.101240"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::ShareDir",
+ "name" : "@RJBS/@Basic/ShareDir",
+ "version" : "2.101240"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::MakeMaker",
+ "name" : "@RJBS/@Basic/MakeMaker",
+ "version" : "2.101240"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Manifest",
+ "name" : "@RJBS/@Basic/Manifest",
+ "version" : "2.101240"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::TestRelease",
+ "name" : "@RJBS/@Basic/TestRelease",
+ "version" : "2.101240"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::ConfirmRelease",
+ "name" : "@RJBS/@Basic/ConfirmRelease",
+ "version" : "2.101240"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::UploadToCPAN",
+ "name" : "@RJBS/@Basic/UploadToCPAN",
+ "version" : "2.101240"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::AutoPrereq",
+ "name" : "@RJBS/AutoPrereq",
+ "version" : "2.101240"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::AutoVersion",
+ "name" : "@RJBS/AutoVersion",
+ "version" : "2.101240"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::PkgVersion",
+ "name" : "@RJBS/PkgVersion",
+ "version" : "2.101240"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::MetaConfig",
+ "name" : "@RJBS/MetaConfig",
+ "version" : "2.101240"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::MetaJSON",
+ "name" : "@RJBS/MetaJSON",
+ "version" : "2.101240"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::NextRelease",
+ "name" : "@RJBS/NextRelease",
+ "version" : "2.101240"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::PodSyntaxTests",
+ "name" : "@RJBS/PodSyntaxTests",
+ "version" : "2.101240"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Repository",
+ "name" : "@RJBS/Repository",
+ "version" : "0.11"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::PodWeaver",
+ "name" : "@RJBS/PodWeaver",
+ "version" : "3.100710"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Git::Check",
+ "name" : "@RJBS/@Git/Check",
+ "version" : "1.100970"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Git::Commit",
+ "name" : "@RJBS/@Git/Commit",
+ "version" : "1.100970"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Git::Tag",
+ "name" : "@RJBS/@Git/Tag",
+ "version" : "1.100970"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::Git::Push",
+ "name" : "@RJBS/@Git/Push",
+ "version" : "1.100970"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::FinderCode",
+ "name" : ":InstallModules",
+ "version" : "2.101240"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::FinderCode",
+ "name" : ":TestFiles",
+ "version" : "2.101240"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::FinderCode",
+ "name" : ":ExecFiles",
+ "version" : "2.101240"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::FinderCode",
+ "name" : ":ShareFiles",
+ "version" : "2.101240"
+ }
+ ],
+ "zilla" : {
+ "class" : "Dist::Zilla",
+ "config" : {
+ "is_trial" : 0
+ },
+ "version" : "2.101240"
+ }
}
}
Modified: trunk/libcpan-uploader-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcpan-uploader-perl/META.yml?rev=57630&op=diff
==============================================================================
--- trunk/libcpan-uploader-perl/META.yml (original)
+++ trunk/libcpan-uploader-perl/META.yml Fri May 7 14:47:48 2010
@@ -2,15 +2,17 @@
abstract: 'upload things to the CPAN'
author:
- 'Ricardo SIGNES <rjbs at cpan.org>'
-build_requires: {}
+build_requires:
+ Test::More: 0
configure_requires:
- ExtUtils::MakeMaker: 6.11
-generated_by: 'Dist::Zilla version 1.100730'
+ ExtUtils::MakeMaker: 6.31
+generated_by: 'Dist::Zilla version 2.101240'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: 1.4
name: CPAN-Uploader
+recommends: {}
requires:
Carp: 0
Data::Dumper: 0
@@ -21,7 +23,137 @@
HTTP::Status: 0
LWP::UserAgent: 0
Term::ReadKey: 0
- Test::More: 0
resources:
repository: git://git.codesimply.com/CPAN-Uploader.git
-version: 0.100760
+version: 0.101260
+x_Dist_Zilla:
+ plugins:
+ -
+ class: Dist::Zilla::Plugin::GatherDir
+ name: '@RJBS/@Basic/GatherDir'
+ version: 2.101240
+ -
+ class: Dist::Zilla::Plugin::PruneCruft
+ name: '@RJBS/@Basic/PruneCruft'
+ version: 2.101240
+ -
+ class: Dist::Zilla::Plugin::ManifestSkip
+ name: '@RJBS/@Basic/ManifestSkip'
+ version: 2.101240
+ -
+ class: Dist::Zilla::Plugin::MetaYAML
+ name: '@RJBS/@Basic/MetaYAML'
+ version: 2.101240
+ -
+ class: Dist::Zilla::Plugin::License
+ name: '@RJBS/@Basic/License'
+ version: 2.101240
+ -
+ class: Dist::Zilla::Plugin::Readme
+ name: '@RJBS/@Basic/Readme'
+ version: 2.101240
+ -
+ class: Dist::Zilla::Plugin::ExtraTests
+ name: '@RJBS/@Basic/ExtraTests'
+ version: 2.101240
+ -
+ class: Dist::Zilla::Plugin::ExecDir
+ name: '@RJBS/@Basic/ExecDir'
+ version: 2.101240
+ -
+ class: Dist::Zilla::Plugin::ShareDir
+ name: '@RJBS/@Basic/ShareDir'
+ version: 2.101240
+ -
+ class: Dist::Zilla::Plugin::MakeMaker
+ name: '@RJBS/@Basic/MakeMaker'
+ version: 2.101240
+ -
+ class: Dist::Zilla::Plugin::Manifest
+ name: '@RJBS/@Basic/Manifest'
+ version: 2.101240
+ -
+ class: Dist::Zilla::Plugin::TestRelease
+ name: '@RJBS/@Basic/TestRelease'
+ version: 2.101240
+ -
+ class: Dist::Zilla::Plugin::ConfirmRelease
+ name: '@RJBS/@Basic/ConfirmRelease'
+ version: 2.101240
+ -
+ class: Dist::Zilla::Plugin::UploadToCPAN
+ name: '@RJBS/@Basic/UploadToCPAN'
+ version: 2.101240
+ -
+ class: Dist::Zilla::Plugin::AutoPrereq
+ name: '@RJBS/AutoPrereq'
+ version: 2.101240
+ -
+ class: Dist::Zilla::Plugin::AutoVersion
+ name: '@RJBS/AutoVersion'
+ version: 2.101240
+ -
+ class: Dist::Zilla::Plugin::PkgVersion
+ name: '@RJBS/PkgVersion'
+ version: 2.101240
+ -
+ class: Dist::Zilla::Plugin::MetaConfig
+ name: '@RJBS/MetaConfig'
+ version: 2.101240
+ -
+ class: Dist::Zilla::Plugin::MetaJSON
+ name: '@RJBS/MetaJSON'
+ version: 2.101240
+ -
+ class: Dist::Zilla::Plugin::NextRelease
+ name: '@RJBS/NextRelease'
+ version: 2.101240
+ -
+ class: Dist::Zilla::Plugin::PodSyntaxTests
+ name: '@RJBS/PodSyntaxTests'
+ version: 2.101240
+ -
+ class: Dist::Zilla::Plugin::Repository
+ name: '@RJBS/Repository'
+ version: 0.11
+ -
+ class: Dist::Zilla::Plugin::PodWeaver
+ name: '@RJBS/PodWeaver'
+ version: 3.100710
+ -
+ class: Dist::Zilla::Plugin::Git::Check
+ name: '@RJBS/@Git/Check'
+ version: 1.100970
+ -
+ class: Dist::Zilla::Plugin::Git::Commit
+ name: '@RJBS/@Git/Commit'
+ version: 1.100970
+ -
+ class: Dist::Zilla::Plugin::Git::Tag
+ name: '@RJBS/@Git/Tag'
+ version: 1.100970
+ -
+ class: Dist::Zilla::Plugin::Git::Push
+ name: '@RJBS/@Git/Push'
+ version: 1.100970
+ -
+ class: Dist::Zilla::Plugin::FinderCode
+ name: ':InstallModules'
+ version: 2.101240
+ -
+ class: Dist::Zilla::Plugin::FinderCode
+ name: ':TestFiles'
+ version: 2.101240
+ -
+ class: Dist::Zilla::Plugin::FinderCode
+ name: ':ExecFiles'
+ version: 2.101240
+ -
+ class: Dist::Zilla::Plugin::FinderCode
+ name: ':ShareFiles'
+ version: 2.101240
+ zilla:
+ class: Dist::Zilla
+ config:
+ is_trial: 0
+ version: 2.101240
Modified: trunk/libcpan-uploader-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcpan-uploader-perl/Makefile.PL?rev=57630&op=diff
==============================================================================
--- trunk/libcpan-uploader-perl/Makefile.PL (original)
+++ trunk/libcpan-uploader-perl/Makefile.PL Fri May 7 14:47:48 2010
@@ -4,44 +4,58 @@
-use ExtUtils::MakeMaker 6.11;
+use ExtUtils::MakeMaker 6.31;
my %WriteMakefileArgs = (
- 'test' => {
- 'TESTS' => 't/*.t'
- },
- 'NAME' => 'CPAN::Uploader',
+ 'ABSTRACT' => 'upload things to the CPAN',
+ 'AUTHOR' => 'Ricardo SIGNES <rjbs at cpan.org>',
+ 'BUILD_REQUIRES' => {
+ 'Test::More' => '0'
+ },
+ 'CONFIGURE_REQUIRES' => {
+ 'ExtUtils::MakeMaker' => '6.31'
+ },
'DISTNAME' => 'CPAN-Uploader',
- 'CONFIGURE_REQUIRES' => {
- 'ExtUtils::MakeMaker' => '6.11'
- },
- 'AUTHOR' => 'Ricardo SIGNES <rjbs at cpan.org>',
- 'BUILD_REQUIRES' => {},
- 'ABSTRACT' => 'upload things to the CPAN',
'EXE_FILES' => [
'bin/cpan-upload'
],
- 'VERSION' => '0.100760',
+ 'LICENSE' => 'perl',
+ 'NAME' => 'CPAN::Uploader',
'PREREQ_PM' => {
+ 'Carp' => '0',
+ 'Data::Dumper' => '0',
+ 'File::Basename' => '0',
'File::Spec' => '0',
- 'Data::Dumper' => '0',
+ 'Getopt::Long::Descriptive' => '0.084',
+ 'HTTP::Request::Common' => '0',
'HTTP::Status' => '0',
- 'Carp' => '0',
- 'HTTP::Request::Common' => '0',
- 'Test::More' => '0',
'LWP::UserAgent' => '0',
- 'Getopt::Long::Descriptive' => '0.084',
- 'File::Basename' => '0',
'Term::ReadKey' => '0'
},
- 'LICENSE' => 'perl'
+ 'VERSION' => '0.101260',
+ 'test' => {
+ 'TESTS' => 't/*.t'
+ }
);
-delete $WriteMakefileArgs{LICENSE}
- unless eval { ExtUtils::MakeMaker->VERSION(6.31) };
+unless ( eval { ExtUtils::MakeMaker->VERSION(6.56) } ) {
+ my $br = delete $WriteMakefileArgs{BUILD_REQUIRES};
+ my $pp = $WriteMakefileArgs{PREREQ_PM};
+ for my $mod ( keys %$br ) {
+ if ( exists $pp->{$mod} ) {
+ $pp->{$mod} = $br->{$mod} if $br->{$mod} > $pp->{$mod};
+ }
+ else {
+ $pp->{$mod} = $br->{$mod};
+ }
+ }
+}
+
+delete $WriteMakefileArgs{CONFIGURE_REQUIRES}
+ unless eval { ExtUtils::MakeMaker->VERSION(6.52) };
WriteMakefile(%WriteMakefileArgs);
Modified: trunk/libcpan-uploader-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcpan-uploader-perl/README?rev=57630&op=diff
==============================================================================
--- trunk/libcpan-uploader-perl/README (original)
+++ trunk/libcpan-uploader-perl/README Fri May 7 14:47:48 2010
@@ -1,7 +1,7 @@
-This archive contains the distribution CPAN-Uploader, version
-0.100760:
+This archive contains the distribution CPAN-Uploader,
+version 0.101260:
upload things to the CPAN
@@ -10,3 +10,4 @@
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
+
Modified: trunk/libcpan-uploader-perl/bin/cpan-upload
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcpan-uploader-perl/bin/cpan-upload?rev=57630&op=diff
==============================================================================
--- trunk/libcpan-uploader-perl/bin/cpan-upload (original)
+++ trunk/libcpan-uploader-perl/bin/cpan-upload Fri May 7 14:47:48 2010
@@ -2,9 +2,7 @@
use strict;
use warnings;
-use Carp;
use CPAN::Uploader;
-use File::Spec;
use Getopt::Long::Descriptive 0.084;
=head1 NAME
@@ -39,21 +37,7 @@
my %arg;
-my $home = $ENV{HOME} || '.';
-my $rc = File::Spec->catfile($home, '.pause');
-
-# Process .pause
-open my $pauserc, '<', $rc or die "can't open $rc for reading: $!";
-
-my %from_file;
-while (<$pauserc>) {
- chomp;
- next unless $_ and $_ !~ /^\s*#/;
-
- my ($k, $v) = /^\s*(\w+)\s+(.+)$/;
- croak "multiple enties for $k" if $from_file{$k};
- $from_file{$k} = $v;
-}
+my $from_file = CPAN::Uploader->read_config_file;
# This nonsensical hack is to cope with Module::Install wanting to call
# cpan-upload -verbose; it should be made to use CPAN::Uploader instead.
@@ -80,12 +64,20 @@
die "Please provide a file name.\n" . $usage unless my $file = $ARGV[0];
-$arg{user} = uc( $opt->_specified('user') ? $opt->user : $from_file{user} );
+$arg{user} = $opt->_specified('user') ? $opt->user : $from_file->{user};
+
+die "Please provide a value for --user\n" unless defined $arg{user};
+
+$arg{user} = uc $arg{user};
$arg{password} = $opt->password if $opt->_specified('password');
-if (! $arg{password} and ($arg{user} eq uc $from_file{user})) {
- $arg{password} = $from_file{password};
+if (
+ ! $arg{password}
+ and defined $from_file->{user}
+ and ($arg{user} eq uc $from_file->{user})
+) {
+ $arg{password} = $from_file->{password};
}
$arg{debug} = 1 if $opt->verbose;
Modified: trunk/libcpan-uploader-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcpan-uploader-perl/debian/changelog?rev=57630&op=diff
==============================================================================
--- trunk/libcpan-uploader-perl/debian/changelog (original)
+++ trunk/libcpan-uploader-perl/debian/changelog Fri May 7 14:47:48 2010
@@ -1,3 +1,10 @@
+libcpan-uploader-perl (0.101260-1) UNRELEASED; urgency=low
+
+ * New upstream release
+ * Drop B-D-I on Test::Pod::Coverage
+
+ -- Jonathan Yu <jawnsy at cpan.org> Fri, 07 May 2010 11:24:49 -0400
+
libcpan-uploader-perl (0.100760-1) unstable; urgency=low
* New upstream release
Modified: trunk/libcpan-uploader-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcpan-uploader-perl/debian/control?rev=57630&op=diff
==============================================================================
--- trunk/libcpan-uploader-perl/debian/control (original)
+++ trunk/libcpan-uploader-perl/debian/control Fri May 7 14:47:48 2010
@@ -3,8 +3,7 @@
Priority: optional
Build-Depends: debhelper (>= 7.0.50)
Build-Depends-Indep: perl, libgetopt-long-descriptive-perl (>= 0.084),
- libwww-perl, libterm-readkey-perl, libpod-coverage-trustpod-perl,
- libtest-pod-perl, libtest-pod-coverage-perl
+ libwww-perl, libterm-readkey-perl, libtest-pod-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Jonathan Yu <jawnsy at cpan.org>
Standards-Version: 3.8.4
Modified: trunk/libcpan-uploader-perl/lib/CPAN/Uploader.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcpan-uploader-perl/lib/CPAN/Uploader.pm?rev=57630&op=diff
==============================================================================
--- trunk/libcpan-uploader-perl/lib/CPAN/Uploader.pm (original)
+++ trunk/libcpan-uploader-perl/lib/CPAN/Uploader.pm Fri May 7 14:47:48 2010
@@ -1,11 +1,15 @@
use strict;
use warnings;
package CPAN::Uploader;
-our $VERSION = '0.100760';
+BEGIN {
+ $CPAN::Uploader::VERSION = '0.101260';
+}
# ABSTRACT: upload things to the CPAN
+use Carp ();
use File::Basename ();
+use File::Spec;
use HTTP::Request::Common qw(POST);
use HTTP::Status;
use LWP::UserAgent;
@@ -112,6 +116,34 @@
}
+sub read_config_file {
+ my ($class, $filename) = @_;
+
+ unless ($filename) {
+ my $home = $ENV{HOME} || '.';
+ $filename = File::Spec->catfile($home, '.pause');
+
+ return {} unless -e $filename and -r _;
+ }
+
+ # Process .pause
+ open my $pauserc, '<', $filename
+ or die "can't open $filename for reading: $!";
+
+ my %from_file;
+ while (<$pauserc>) {
+ chomp;
+ next unless $_ and $_ !~ /^\s*#/;
+
+ my ($k, $v) = /^\s*(\w+)\s+(.+)$/;
+ Carp::croak "multiple enties for $k" if $from_file{$k};
+ $from_file{$k} = $v;
+ }
+
+ return \%from_file;
+}
+
+
sub log {
shift;
print "$_[0]\n"
@@ -135,7 +167,7 @@
=head1 VERSION
-version 0.100760
+version 0.101260
=head1 METHODS
@@ -165,6 +197,16 @@
Valid arguments are the same as those to C<upload_file>.
+=head2 read_config_file
+
+ my $config = CPAN::Uploader->read_config_file( $filename );
+
+This reads the config file and returns a hashref of its contents that can be
+used as configuration for CPAN::Uploader.
+
+If no filename is given, it looks for F<.pause> in the user's home directory
+(from the env var C<HOME>, or the current directory if C<HOME> isn't set).
+
=head2 log
$uploader->log($message);
Modified: trunk/libcpan-uploader-perl/t/release-pod-syntax.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcpan-uploader-perl/t/release-pod-syntax.t?rev=57630&op=diff
==============================================================================
--- trunk/libcpan-uploader-perl/t/release-pod-syntax.t (original)
+++ trunk/libcpan-uploader-perl/t/release-pod-syntax.t Fri May 7 14:47:48 2010
@@ -9,7 +9,7 @@
use Test::More;
-eval "use Test::Pod 1.00";
-plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
+eval "use Test::Pod 1.41";
+plan skip_all => "Test::Pod 1.41 required for testing POD" if $@;
all_pod_files_ok();
More information about the Pkg-perl-cvs-commits
mailing list