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