r24409 - in /branches/upstream/libclass-data-accessor-perl/current: ./ inc/Module/ inc/Module/Install/ lib/Class/Data/
eloy at users.alioth.debian.org
eloy at users.alioth.debian.org
Mon Aug 18 08:29:49 UTC 2008
Author: eloy
Date: Mon Aug 18 08:29:47 2008
New Revision: 24409
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=24409
Log:
[svn-upgrade] Integrating new upstream version, libclass-data-accessor-perl (0.04004)
Modified:
branches/upstream/libclass-data-accessor-perl/current/Changes
branches/upstream/libclass-data-accessor-perl/current/META.yml
branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install.pm
branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/AutoInstall.pm
branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/Base.pm
branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/Can.pm
branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/Fetch.pm
branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/Include.pm
branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/Makefile.pm
branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/Metadata.pm
branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/Win32.pm
branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/WriteAll.pm
branches/upstream/libclass-data-accessor-perl/current/lib/Class/Data/Accessor.pm
Modified: branches/upstream/libclass-data-accessor-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-data-accessor-perl/current/Changes?rev=24409&op=diff
==============================================================================
--- branches/upstream/libclass-data-accessor-perl/current/Changes (original)
+++ branches/upstream/libclass-data-accessor-perl/current/Changes Mon Aug 18 08:29:47 2008
@@ -1,8 +1,11 @@
Revision history for Class::Data::Accessor.
+
+0.04004 Tue Aug 12 20:40:45 2008
+ - Fixed typo about deprecation
0.04003 Thur Aug 07 19:27:33 2008
- Changed license to Perl now that Inheritable has also changed
- - Class::Data::Accessor is not deprecated in favor of
+ - Class::Data::Accessor is now deprecated in favor of
Class::Accessor::Grouped or Moose
0.04002 Fri Mar 7 20:13:26 2008
Modified: branches/upstream/libclass-data-accessor-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-data-accessor-perl/current/META.yml?rev=24409&op=diff
==============================================================================
--- branches/upstream/libclass-data-accessor-perl/current/META.yml (original)
+++ branches/upstream/libclass-data-accessor-perl/current/META.yml Mon Aug 18 08:29:47 2008
@@ -3,7 +3,7 @@
author:
- 'Based on the creative stylings of Damian Conway, Michael G Schwern,'
distribution_type: module
-generated_by: 'Module::Install version 0.76'
+generated_by: 'Module::Install version 0.77'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -18,4 +18,4 @@
perl: 5.6.1
resources:
license: http://dev.perl.org/licenses/
-version: 0.04003
+version: 0.04004
Modified: branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install.pm?rev=24409&op=diff
==============================================================================
--- branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install.pm (original)
+++ branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install.pm Mon Aug 18 08:29:47 2008
@@ -30,7 +30,7 @@
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
- $VERSION = '0.76';
+ $VERSION = '0.77';
*inc::Module::Install::VERSION = *VERSION;
@inc::Module::Install::ISA = __PACKAGE__;
@@ -125,8 +125,10 @@
goto &$code unless $cwd eq $pwd;
}
$$sym =~ /([^:]+)$/ or die "Cannot autoload $who - $sym";
- unshift @_, ( $self, $1 );
- goto &{$self->can('call')} unless uc($1) eq $1;
+ unless ( uc($1) eq $1 ) {
+ unshift @_, ( $self, $1 );
+ goto &{$self->can('call')};
+ }
};
}
@@ -339,6 +341,9 @@
close FH or die "close($_[0]): $!";
}
+# _version is for processing module versions (eg, 1.03_05) not
+# Perl versions (eg, 5.8.1).
+
sub _version ($) {
my $s = shift || 0;
$s =~ s/^(\d+)\.?//;
Modified: branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/AutoInstall.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/AutoInstall.pm?rev=24409&op=diff
==============================================================================
--- branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/AutoInstall.pm (original)
+++ branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/AutoInstall.pm Mon Aug 18 08:29:47 2008
@@ -6,7 +6,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.76';
+ $VERSION = '0.77';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/Base.pm?rev=24409&op=diff
==============================================================================
--- branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/Base.pm (original)
+++ branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/Base.pm Mon Aug 18 08:29:47 2008
@@ -1,7 +1,7 @@
#line 1
package Module::Install::Base;
-$VERSION = '0.76';
+$VERSION = '0.77';
# Suspend handler for "redefined" warnings
BEGIN {
Modified: branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/Can.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/Can.pm?rev=24409&op=diff
==============================================================================
--- branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/Can.pm (original)
+++ branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/Can.pm Mon Aug 18 08:29:47 2008
@@ -11,7 +11,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.76';
+ $VERSION = '0.77';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
@@ -39,6 +39,7 @@
return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));
for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
+ next if $dir eq '';
my $abs = File::Spec->catfile($dir, $_[1]);
return $abs if (-x $abs or $abs = MM->maybe_command($abs));
}
@@ -79,4 +80,4 @@
__END__
-#line 157
+#line 158
Modified: branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/Fetch.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/Fetch.pm?rev=24409&op=diff
==============================================================================
--- branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/Fetch.pm (original)
+++ branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/Fetch.pm Mon Aug 18 08:29:47 2008
@@ -6,7 +6,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.76';
+ $VERSION = '0.77';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/Include.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/Include.pm?rev=24409&op=diff
==============================================================================
--- branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/Include.pm (original)
+++ branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/Include.pm Mon Aug 18 08:29:47 2008
@@ -6,7 +6,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.76';
+ $VERSION = '0.77';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/Makefile.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/Makefile.pm?rev=24409&op=diff
==============================================================================
--- branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/Makefile.pm (original)
+++ branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/Makefile.pm Mon Aug 18 08:29:47 2008
@@ -7,7 +7,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.76';
+ $VERSION = '0.77';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
@@ -181,7 +181,9 @@
my $user_preop = delete $args{dist}->{PREOP};
if (my $preop = $self->admin->preop($user_preop)) {
- $args{dist} = $preop;
+ foreach my $key ( keys %$preop ) {
+ $args{dist}->{$key} = $preop->{$key};
+ }
}
my $mm = ExtUtils::MakeMaker::WriteMakefile(%args);
@@ -248,4 +250,4 @@
__END__
-#line 377
+#line 379
Modified: branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/Metadata.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/Metadata.pm?rev=24409&op=diff
==============================================================================
--- branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/Metadata.pm (original)
+++ branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/Metadata.pm Mon Aug 18 08:29:47 2008
@@ -6,7 +6,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.76';
+ $VERSION = '0.77';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
@@ -175,6 +175,12 @@
my $version = shift or die(
"Did not provide a value to perl_version()"
);
+
+ # Convert triple-part versions (eg, 5.6.1 or 5.8.9) to
+ # numbers (eg, 5.006001 or 5.008009).
+
+ $version =~ s/^(\d+)\.(\d+)\.(\d+)$/sprintf("%d.%03d%03d",$1,$2,$3)/e;
+
$version =~ s/_.+$//;
$version = $version + 0; # Numify
unless ( $version >= 5.005 ) {
@@ -212,6 +218,9 @@
unless ( -e $file ) {
die("all_from cannot find $file from $name");
}
+ }
+ unless ( -f $file ) {
+ die("The path '$file' does not exist, or is not a file");
}
# Some methods pull from POD instead of code.
@@ -424,8 +433,12 @@
my $license_text = $1;
my @phrases = (
'under the same (?:terms|license) as perl itself' => 'perl', 1,
+ 'GNU general public license' => 'gpl', 1,
'GNU public license' => 'gpl', 1,
+ 'GNU lesser general public license' => 'lgpl', 1,
'GNU lesser public license' => 'lgpl', 1,
+ 'GNU library general public license' => 'lgpl', 1,
+ 'GNU library public license' => 'lgpl', 1,
'BSD license' => 'bsd', 1,
'Artistic license' => 'artistic', 1,
'GPL' => 'gpl', 1,
Modified: branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/Win32.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/Win32.pm?rev=24409&op=diff
==============================================================================
--- branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/Win32.pm (original)
+++ branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/Win32.pm Mon Aug 18 08:29:47 2008
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.76';
+ $VERSION = '0.77';
@ISA = qw{Module::Install::Base};
$ISCORE = 1;
}
Modified: branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/WriteAll.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/WriteAll.pm?rev=24409&op=diff
==============================================================================
--- branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/WriteAll.pm (original)
+++ branches/upstream/libclass-data-accessor-perl/current/inc/Module/Install/WriteAll.pm Mon Aug 18 08:29:47 2008
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.76';
+ $VERSION = '0.77';
@ISA = qw{Module::Install::Base};
$ISCORE = 1;
}
Modified: branches/upstream/libclass-data-accessor-perl/current/lib/Class/Data/Accessor.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libclass-data-accessor-perl/current/lib/Class/Data/Accessor.pm?rev=24409&op=diff
==============================================================================
--- branches/upstream/libclass-data-accessor-perl/current/lib/Class/Data/Accessor.pm (original)
+++ branches/upstream/libclass-data-accessor-perl/current/lib/Class/Data/Accessor.pm Mon Aug 18 08:29:47 2008
@@ -3,7 +3,7 @@
use warnings;
use Carp;
use vars qw($VERSION);
-$VERSION = '0.04003';
+$VERSION = '0.04004';
sub mk_classaccessor {
my ($declaredclass, $attribute, $data) = @_;
More information about the Pkg-perl-cvs-commits
mailing list