r33090 - in /trunk/libdatetime-format-pg-perl: ./ debian/ inc/Module/ inc/Module/Install/ inc/Test/ lib/DateTime/Format/ t/

ansgar-guest at users.alioth.debian.org ansgar-guest at users.alioth.debian.org
Sun Apr 12 10:35:47 UTC 2009


Author: ansgar-guest
Date: Sun Apr 12 10:35:41 2009
New Revision: 33090

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=33090
Log:
* New upstream release.
* Add myself to Uploaders.
* Bump Standards Version to 3.8.1 (no changes).
* Update debian/copyright: format changes; do not show the Debian Perl Group
  as copyright holder, instead list individual contributors (as mentioned
  in debian/changelog).

Added:
    trunk/libdatetime-format-pg-perl/t/parse_datetime3.t
      - copied unchanged from r33089, branches/upstream/libdatetime-format-pg-perl/current/t/parse_datetime3.t
Removed:
    trunk/libdatetime-format-pg-perl/inc/Module/Install/Include.pm
    trunk/libdatetime-format-pg-perl/inc/Test/
Modified:
    trunk/libdatetime-format-pg-perl/Changes
    trunk/libdatetime-format-pg-perl/MANIFEST
    trunk/libdatetime-format-pg-perl/META.yml
    trunk/libdatetime-format-pg-perl/Makefile.PL
    trunk/libdatetime-format-pg-perl/README
    trunk/libdatetime-format-pg-perl/debian/changelog
    trunk/libdatetime-format-pg-perl/debian/control
    trunk/libdatetime-format-pg-perl/debian/copyright
    trunk/libdatetime-format-pg-perl/inc/Module/Install.pm
    trunk/libdatetime-format-pg-perl/inc/Module/Install/Base.pm
    trunk/libdatetime-format-pg-perl/inc/Module/Install/Can.pm
    trunk/libdatetime-format-pg-perl/inc/Module/Install/Fetch.pm
    trunk/libdatetime-format-pg-perl/inc/Module/Install/Makefile.pm
    trunk/libdatetime-format-pg-perl/inc/Module/Install/Metadata.pm
    trunk/libdatetime-format-pg-perl/inc/Module/Install/Win32.pm
    trunk/libdatetime-format-pg-perl/inc/Module/Install/WriteAll.pm
    trunk/libdatetime-format-pg-perl/lib/DateTime/Format/Pg.pm
    trunk/libdatetime-format-pg-perl/t/1basic.t
    trunk/libdatetime-format-pg-perl/t/2new-param.t
    trunk/libdatetime-format-pg-perl/t/format_date.t
    trunk/libdatetime-format-pg-perl/t/format_datetime.t
    trunk/libdatetime-format-pg-perl/t/format_interval.t
    trunk/libdatetime-format-pg-perl/t/parse_date.t
    trunk/libdatetime-format-pg-perl/t/parse_datetime.t
    trunk/libdatetime-format-pg-perl/t/parse_datetime2.t
    trunk/libdatetime-format-pg-perl/t/parse_infinity.t
    trunk/libdatetime-format-pg-perl/t/parse_interval.t
    trunk/libdatetime-format-pg-perl/t/parse_time.t
    trunk/libdatetime-format-pg-perl/t/tz_1901_2038.t

Modified: trunk/libdatetime-format-pg-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-pg-perl/Changes?rev=33090&op=diff
==============================================================================
--- trunk/libdatetime-format-pg-perl/Changes (original)
+++ trunk/libdatetime-format-pg-perl/Changes Sun Apr 12 10:35:41 2009
@@ -1,4 +1,7 @@
 Revision history for Perl extension DateTime::Format::Pg.
+
+0.16003  Fri Mar 27 09:30:00 2009
+    - Fix handling of BC (rt #44594). Patch by Jonas Lijegren.
 
 0.16002  Tue Aug 13 08:00:00 2008
     - Remove non-ascii byte sequence from Pg.pm (sorry, Claus).
@@ -69,4 +72,4 @@
 	- original version; created by h2xs 1.22 with options
 		-X -n DateTime::Format::Pg
 
-$Id: /mirror/datetime/DateTime-Format-Pg/trunk/Changes 68454 2008-08-12T23:28:26.498851Z lestrrat  $
+$Id: Changes 4148 2009-03-27 00:37:47Z lestrrat $

Modified: trunk/libdatetime-format-pg-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-pg-perl/MANIFEST?rev=33090&op=diff
==============================================================================
--- trunk/libdatetime-format-pg-perl/MANIFEST (original)
+++ trunk/libdatetime-format-pg-perl/MANIFEST Sun Apr 12 10:35:41 2009
@@ -3,12 +3,10 @@
 inc/Module/Install/Base.pm
 inc/Module/Install/Can.pm
 inc/Module/Install/Fetch.pm
-inc/Module/Install/Include.pm
 inc/Module/Install/Makefile.pm
 inc/Module/Install/Metadata.pm
 inc/Module/Install/Win32.pm
 inc/Module/Install/WriteAll.pm
-inc/Test/More.pm
 lib/DateTime/Format/Pg.pm
 LICENSE
 Makefile.PL
@@ -25,6 +23,7 @@
 t/parse_date.t
 t/parse_datetime.t
 t/parse_datetime2.t
+t/parse_datetime3.t
 t/parse_infinity.t
 t/parse_interval.t
 t/parse_time.t

Modified: trunk/libdatetime-format-pg-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-pg-perl/META.yml?rev=33090&op=diff
==============================================================================
--- trunk/libdatetime-format-pg-perl/META.yml (original)
+++ trunk/libdatetime-format-pg-perl/META.yml Sun Apr 12 10:35:41 2009
@@ -1,20 +1,0 @@
---- 
-abstract: Parse and format PostgreSQL dates and times
-author: 
-  - "Claus A. F\xE4rber <perl at faerber.muc.de>"
-distribution_type: module
-generated_by: Module::Install version 0.68
-license: perl
-meta-spec: 
-  url: http://module-build.sourceforge.net/META-spec-v1.3.html
-  version: 1.3
-name: DateTime-Format-Pg
-no_index: 
-  directory: 
-    - inc
-    - t
-requires: 
-  DateTime: 0.10
-  DateTime::Format::Builder: 0.72
-  DateTime::TimeZone: 0.05
-version: 0.16001

Modified: trunk/libdatetime-format-pg-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-pg-perl/Makefile.PL?rev=33090&op=diff
==============================================================================
--- trunk/libdatetime-format-pg-perl/Makefile.PL (original)
+++ trunk/libdatetime-format-pg-perl/Makefile.PL Sun Apr 12 10:35:41 2009
@@ -10,6 +10,5 @@
 
 test_requires 'Test::More';
 
-auto_include;
 WriteAll;
 

Modified: trunk/libdatetime-format-pg-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-pg-perl/README?rev=33090&op=diff
==============================================================================
--- trunk/libdatetime-format-pg-perl/README (original)
+++ trunk/libdatetime-format-pg-perl/README Sun Apr 12 10:35:41 2009
@@ -28,4 +28,4 @@
 This library is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself. 
 
-$Id: /mirror/datetime/DateTime-Format-Pg/trunk/README 5881 2005-03-16T16:13:19.000000Z cfaerber  $
+$Id: README 1055 2005-03-16 16:13:19Z cfaerber $

Modified: trunk/libdatetime-format-pg-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-pg-perl/debian/changelog?rev=33090&op=diff
==============================================================================
--- trunk/libdatetime-format-pg-perl/debian/changelog (original)
+++ trunk/libdatetime-format-pg-perl/debian/changelog Sun Apr 12 10:35:41 2009
@@ -1,4 +1,4 @@
-libdatetime-format-pg-perl (0.16002-2) UNRELEASED; urgency=low
+libdatetime-format-pg-perl (0.16003-1) unstable; urgency=low
 
   [ gregor herrmann ]
   * debian/control: Changed: Switched Vcs-Browser field to ViewSVN
@@ -7,7 +7,15 @@
   [ Rene Mayorga ]
   * debian/control: update my email address.
 
- -- Rene Mayorga <rmayorga at debian.org>  Tue, 20 Jan 2009 01:27:10 -0600
+  [ Ansgar Burchardt ]
+  * New upstream release.
+  * Add myself to Uploaders.
+  * Bump Standards Version to 3.8.1 (no changes).
+  * Update debian/copyright: format changes; do not show the Debian Perl Group
+    as copyright holder, instead list individual contributors (as mentioned
+    in debian/changelog).
+
+ -- Ansgar Burchardt <ansgar at 43-1.org>  Sun, 12 Apr 2009 12:35:24 +0200
 
 libdatetime-format-pg-perl (0.16002-1) unstable; urgency=low
 

Modified: trunk/libdatetime-format-pg-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-pg-perl/debian/control?rev=33090&op=diff
==============================================================================
--- trunk/libdatetime-format-pg-perl/debian/control (original)
+++ trunk/libdatetime-format-pg-perl/debian/control Sun Apr 12 10:35:41 2009
@@ -7,8 +7,9 @@
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
 Uploaders: gregor herrmann <gregoa at debian.org>,
  Krzysztof Krzyzaniak (eloy) <eloy at debian.org>,
- Rene Mayorga <rmayorga at debian.org>
-Standards-Version: 3.8.0
+ Rene Mayorga <rmayorga at debian.org>,
+ Ansgar Burchardt <ansgar at 43-1.org>
+Standards-Version: 3.8.1
 Homepage: http://search.cpan.org/dist/DateTime-Format-Pg/
 Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libdatetime-format-pg-perl/
 Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libdatetime-format-pg-perl/

Modified: trunk/libdatetime-format-pg-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-pg-perl/debian/copyright?rev=33090&op=diff
==============================================================================
--- trunk/libdatetime-format-pg-perl/debian/copyright (original)
+++ trunk/libdatetime-format-pg-perl/debian/copyright Sun Apr 12 10:35:41 2009
@@ -1,41 +1,31 @@
-This package was debianized by gregor herrmann <gregor+debian at comodo.priv.at> 
-on Sun, 8 Oct 20 2006 18:51:59 +0200, and is Maintained by the Debian Perl Group
-(pkg-perl)
-
-It was downloaded from: http://search.cpan.org/dist/DateTime-Format-Pg/
-
-Upstrem Author: Claus A. Färber <perl at faerber.muc.de>
+Format-Specification: http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=228
+Upstream-Name: DateTime-Format-Pg
+Upstream-Maintainer: Daisuke Maki
+Upstream-Source: http://search.cpan.org/dist/DateTime-Format-Pg/
 
 Files: *
-Copyright © 2003 Claus A. Färber.  All rights reserved.
+Copyright © 2003-2005 Claus A. Färber.  All rights reserved.
 License: GPL-1+ | Artistic
  This program is free software; you can redistribute it and/or modify it under
  the same terms as Perl itself.
+ .
+ Perl is distributed under your choice of the GNU General Public License or
+ the Artistic License.  On Debian GNU/Linux systems, the complete text of the
+ GNU General Public License can be found in `/usr/share/common-licenses/GPL'
+ and the Artistic Licence in `/usr/share/common-licenses/Artistic'.
 
 Files: inc/Module/*
-Copyright: Copyright 2002 - 2008 by Brian Ingerson, Audrey Tang and Adam Kennedy
+Copyright: Copyright 2002 - 2009 by Brian Ingerson, Audrey Tang and Adam Kennedy
 License: GPL-1+ | Artistic
  This program is free software; you can redistribute it and/or modify it under
  the same terms as Perl itself.
 
 Files: debian/*
-Copyright: © 2006-2008 Debian Perl Group
-	     <pkg-perl-maintainers at lists.alioth.debian.org>
+Copyright:
+ © 2006-2008, gregor herrmann <gregoa at debian.org>
+ © 2007,      Krzysztof Krzyzaniak (eloy) <eloy at debian.org>
+ © 2007-2008, Rene Mayorga <rmayorga at debian.org>
 License: GPL-1+ | Artistic
  This program is free software; you can redistribute it and/or modify it under
  the same terms as Perl itself.
 
-The Perl license is:
-    This program is free software; you can redistribute it and/or modify
-    it under the terms of either:
-
-    a) the GNU General Public License as published by the Free Software
-       Foundation; either version 1, or (at your option) any later
-       version, or
-    
-    b) the "Artistic License" which comes with Perl.
-
-
-On Debian GNU/Linux systems, the complete text of the GNU General Public
-License can be found in `/usr/share/common-licenses/GPL' and the Artistic
-Licence in `/usr/share/common-licenses/Artistic'.

Modified: trunk/libdatetime-format-pg-perl/inc/Module/Install.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-pg-perl/inc/Module/Install.pm?rev=33090&op=diff
==============================================================================
--- trunk/libdatetime-format-pg-perl/inc/Module/Install.pm (original)
+++ trunk/libdatetime-format-pg-perl/inc/Module/Install.pm Sun Apr 12 10:35:41 2009
@@ -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.80';
 
 	*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')};
+		}
 	};
 }
 
@@ -248,7 +250,7 @@
 sub load_extensions {
 	my ($self, $path, $top) = @_;
 
-	unless ( grep { lc $_ eq lc $self->{prefix} } @INC ) {
+	unless ( grep { !ref $_ and lc $_ eq lc $self->{prefix} } @INC ) {
 		unshift @INC, $self->{prefix};
 	}
 
@@ -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+)\.?//;
@@ -355,10 +360,10 @@
 		and
 		! ref $_[0]
 		and
-		$_[0] =~ m/^[^\W\d]\w*(?:::\w+)*$/s
+		$_[0] =~ m/^[^\W\d]\w*(?:::\w+)*\z/s
 	) ? $_[0] : undef;
 }
 
 1;
 
-# Copyright 2008 Adam Kennedy.
+# Copyright 2008 - 2009 Adam Kennedy.

Modified: trunk/libdatetime-format-pg-perl/inc/Module/Install/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-pg-perl/inc/Module/Install/Base.pm?rev=33090&op=diff
==============================================================================
--- trunk/libdatetime-format-pg-perl/inc/Module/Install/Base.pm (original)
+++ trunk/libdatetime-format-pg-perl/inc/Module/Install/Base.pm Sun Apr 12 10:35:41 2009
@@ -1,7 +1,7 @@
 #line 1
 package Module::Install::Base;
 
-$VERSION = '0.76';
+$VERSION = '0.80';
 
 # Suspend handler for "redefined" warnings
 BEGIN {

Modified: trunk/libdatetime-format-pg-perl/inc/Module/Install/Can.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-pg-perl/inc/Module/Install/Can.pm?rev=33090&op=diff
==============================================================================
--- trunk/libdatetime-format-pg-perl/inc/Module/Install/Can.pm (original)
+++ trunk/libdatetime-format-pg-perl/inc/Module/Install/Can.pm Sun Apr 12 10:35:41 2009
@@ -11,7 +11,7 @@
 
 use vars qw{$VERSION $ISCORE @ISA};
 BEGIN {
-	$VERSION = '0.76';
+	$VERSION = '0.80';
 	$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: trunk/libdatetime-format-pg-perl/inc/Module/Install/Fetch.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-pg-perl/inc/Module/Install/Fetch.pm?rev=33090&op=diff
==============================================================================
--- trunk/libdatetime-format-pg-perl/inc/Module/Install/Fetch.pm (original)
+++ trunk/libdatetime-format-pg-perl/inc/Module/Install/Fetch.pm Sun Apr 12 10:35:41 2009
@@ -6,20 +6,20 @@
 
 use vars qw{$VERSION $ISCORE @ISA};
 BEGIN {
-	$VERSION = '0.76';
+	$VERSION = '0.80';
 	$ISCORE  = 1;
 	@ISA     = qw{Module::Install::Base};
 }
 
 sub get_file {
     my ($self, %args) = @_;
-    my ($scheme, $host, $path, $file) = 
+    my ($scheme, $host, $path, $file) =
         $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
 
     if ( $scheme eq 'http' and ! eval { require LWP::Simple; 1 } ) {
         $args{url} = $args{ftp_url}
             or (warn("LWP support unavailable!\n"), return);
-        ($scheme, $host, $path, $file) = 
+        ($scheme, $host, $path, $file) =
             $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
     }
 

Modified: trunk/libdatetime-format-pg-perl/inc/Module/Install/Makefile.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-pg-perl/inc/Module/Install/Makefile.pm?rev=33090&op=diff
==============================================================================
--- trunk/libdatetime-format-pg-perl/inc/Module/Install/Makefile.pm (original)
+++ trunk/libdatetime-format-pg-perl/inc/Module/Install/Makefile.pm Sun Apr 12 10:35:41 2009
@@ -7,7 +7,7 @@
 
 use vars qw{$VERSION $ISCORE @ISA};
 BEGIN {
-	$VERSION = '0.76';
+	$VERSION = '0.80';
 	$ISCORE  = 1;
 	@ISA     = qw{Module::Install::Base};
 }
@@ -64,7 +64,7 @@
 	my $self  = shift;
 	my $clean = $self->makemaker_args->{clean} ||= {};
 	  %$clean = (
-		%$clean, 
+		%$clean,
 		FILES => join ' ', grep { length $_ } ($clean->{FILES} || (), @_),
 	);
 }
@@ -73,7 +73,7 @@
 	my $self      = shift;
 	my $realclean = $self->makemaker_args->{realclean} ||= {};
 	  %$realclean = (
-		%$realclean, 
+		%$realclean,
 		FILES => join ' ', grep { length $_ } ($realclean->{FILES} || (), @_),
 	);
 }
@@ -124,7 +124,7 @@
 
 	$self->configure_requires( 'ExtUtils::MakeMaker' => $ExtUtils::MakeMaker::VERSION =~ /^(\d+\.\d+)/ );
 
-	# Generate the 
+	# Generate the
 	my $args = $self->makemaker_args;
 	$args->{DISTNAME} = $self->name;
 	$args->{NAME}     = $self->module_name || $self->name;
@@ -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);
@@ -194,7 +196,7 @@
 	my $top_class     = ref($self->_top) || '';
 	my $top_version   = $self->_top->VERSION || '';
 
-	my $preamble = $self->preamble 
+	my $preamble = $self->preamble
 		? "# Preamble by $top_class $top_version\n"
 			. $self->preamble
 		: '';
@@ -248,4 +250,4 @@
 
 __END__
 
-#line 377
+#line 379

Modified: trunk/libdatetime-format-pg-perl/inc/Module/Install/Metadata.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-pg-perl/inc/Module/Install/Metadata.pm?rev=33090&op=diff
==============================================================================
--- trunk/libdatetime-format-pg-perl/inc/Module/Install/Metadata.pm (original)
+++ trunk/libdatetime-format-pg-perl/inc/Module/Install/Metadata.pm Sun Apr 12 10:35:41 2009
@@ -6,7 +6,7 @@
 
 use vars qw{$VERSION $ISCORE @ISA};
 BEGIN {
-	$VERSION = '0.76';
+	$VERSION = '0.80';
 	$ISCORE  = 1;
 	@ISA     = qw{Module::Install::Base};
 }
@@ -175,13 +175,16 @@
 	my $version = shift or die(
 		"Did not provide a value to perl_version()"
 	);
-	$version =~ s/_.+$//;
-	$version = $version + 0; # Numify
+
+	# Normalize the version
+	$version = $self->_perl_version($version);
+
+	# We don't support the reall old versions
 	unless ( $version >= 5.005 ) {
 		die "Module::Install only supports 5.005 or newer (use ExtUtils::MakeMaker)\n";
 	}
+
 	$self->{values}{perl_version} = $version;
-	return 1;
 }
 
 sub license {
@@ -212,6 +215,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 +430,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,
@@ -438,9 +448,6 @@
 		while ( my ($pattern, $license, $osi) = splice(@phrases, 0, 3) ) {
 			$pattern =~ s{\s+}{\\s+}g;
 			if ( $license_text =~ /\b$pattern\b/i ) {
-				if ( $osi and $license_text =~ /All rights reserved/i ) {
-					print "WARNING: 'All rights reserved' in copyright may invalidate Open Source license.\n";
-				}
 				$self->license($license);
 				return 1;
 			}
@@ -469,19 +476,74 @@
 	return 1;
 }
 
-sub install_script {
-	my $self = shift;
-	my $args = $self->makemaker_args;
-	my $exe  = $args->{EXE_FILES} ||= [];
-        foreach ( @_ ) {
-		if ( -f $_ ) {
-			push @$exe, $_;
-		} elsif ( -d 'script' and -f "script/$_" ) {
-			push @$exe, "script/$_";
-		} else {
-			die("Cannot find script '$_'");
-		}
-	}
+# Convert triple-part versions (eg, 5.6.1 or 5.8.9) to
+# numbers (eg, 5.006001 or 5.008009).
+# Also, convert double-part versions (eg, 5.8)
+sub _perl_version {
+	my $v = $_[-1];
+	$v =~ s/^([1-9])\.([1-9]\d?\d?)$/sprintf("%d.%03d",$1,$2)/e;	
+	$v =~ s/^([1-9])\.([1-9]\d?\d?)\.(0|[1-9]\d?\d?)$/sprintf("%d.%03d%03d",$1,$2,$3 || 0)/e;
+	$v =~ s/(\.\d\d\d)000$/$1/;
+	$v =~ s/_.+$//;
+	if ( ref($v) ) {
+		$v = $v + 0; # Numify
+	}
+	return $v;
+}
+
+
+
+
+
+######################################################################
+# MYMETA.yml Support
+
+sub WriteMyMeta {
+	$_[0]->write_mymeta;
+}
+
+sub write_mymeta {
+	my $self = shift;
+	
+	# If there's no existing META.yml there is nothing we can do
+	return unless -f 'META.yml';
+
+	# We need YAML::Tiny to write the MYMETA.yml file
+	unless ( eval { require YAML::Tiny; 1; } ) {
+		return 1;
+	}
+
+	# Merge the perl version into the dependencies
+	my $val  = $self->Meta->{values};
+	my $perl = delete $val->{perl_version};
+	if ( $perl ) {
+		$val->{requires} ||= [];
+		my $requires = $val->{requires};
+
+		# Canonize to three-dot version after Perl 5.6
+		if ( $perl >= 5.006 ) {
+			$perl =~ s{^(\d+)\.(\d\d\d)(\d*)}{join('.', $1, int($2||0), int($3||0))}e
+		}
+		unshift @$requires, [ perl => $perl ];
+	}
+
+	# Load the advisory META.yml file
+	my @yaml = YAML::Tiny::LoadFile('META.yml');
+	my $meta = $yaml[0];
+
+	# Overwrite the non-configure dependency hashs
+	delete $meta->{requires};
+	delete $meta->{build_requires};
+	delete $meta->{recommends};
+	if ( exists $val->{requires} ) {
+		$meta->{requires} = { map { @$_ } @{ $val->{requires} } };
+	}
+	if ( exists $val->{build_requires} ) {
+		$meta->{build_requires} = { map { @$_ } @{ $val->{build_requires} } };
+	}
+
+	# Save as the MYMETA.yml file
+	YAML::Tiny::DumpFile('MYMETA.yml', $meta);
 }
 
 1;

Modified: trunk/libdatetime-format-pg-perl/inc/Module/Install/Win32.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-pg-perl/inc/Module/Install/Win32.pm?rev=33090&op=diff
==============================================================================
--- trunk/libdatetime-format-pg-perl/inc/Module/Install/Win32.pm (original)
+++ trunk/libdatetime-format-pg-perl/inc/Module/Install/Win32.pm Sun Apr 12 10:35:41 2009
@@ -6,7 +6,7 @@
 
 use vars qw{$VERSION @ISA $ISCORE};
 BEGIN {
-	$VERSION = '0.76';
+	$VERSION = '0.80';
 	@ISA     = qw{Module::Install::Base};
 	$ISCORE  = 1;
 }

Modified: trunk/libdatetime-format-pg-perl/inc/Module/Install/WriteAll.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-pg-perl/inc/Module/Install/WriteAll.pm?rev=33090&op=diff
==============================================================================
--- trunk/libdatetime-format-pg-perl/inc/Module/Install/WriteAll.pm (original)
+++ trunk/libdatetime-format-pg-perl/inc/Module/Install/WriteAll.pm Sun Apr 12 10:35:41 2009
@@ -6,7 +6,7 @@
 
 use vars qw{$VERSION @ISA $ISCORE};
 BEGIN {
-	$VERSION = '0.76';
+	$VERSION = '0.80';
 	@ISA     = qw{Module::Install::Base};
 	$ISCORE  = 1;
 }

Modified: trunk/libdatetime-format-pg-perl/lib/DateTime/Format/Pg.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-pg-perl/lib/DateTime/Format/Pg.pm?rev=33090&op=diff
==============================================================================
--- trunk/libdatetime-format-pg-perl/lib/DateTime/Format/Pg.pm (original)
+++ trunk/libdatetime-format-pg-perl/lib/DateTime/Format/Pg.pm Sun Apr 12 10:35:41 2009
@@ -1,5 +1,5 @@
 package DateTime::Format::Pg;
-# $Id: /mirror/datetime/DateTime-Format-Pg/trunk/lib/DateTime/Format/Pg.pm 68454 2008-08-12T23:28:26.498851Z lestrrat  $
+# $Id: Pg.pm 4148 2009-03-27 00:37:47Z lestrrat $
 
 use strict;
 use vars qw ($VERSION);
@@ -12,7 +12,7 @@
 use DateTime::TimeZone::UTC;
 use DateTime::TimeZone::Floating;
 
-$VERSION = '0.16002';
+$VERSION = '0.16003';
 $VERSION = eval $VERSION;
 
 our @ISA = ('DateTime::Format::Builder');
@@ -226,8 +226,8 @@
 #
 my $pg_datetime_iso =
 {
-  regex		=> qr/^(\d{4,})-(\d{2,})-(\d{2,}) (\d{2,}):(\d{2,}):(\d{2,})(\.\d+)?( BC)? *([-\+][\d:]+)?$/,
-  params 	=> [ qw( year    month    day      hour     minute  second nanosecond era    time_zone) ],
+  regex		=> qr/^(\d{4,})-(\d{2,})-(\d{2,}) (\d{2,}):(\d{2,}):(\d{2,})(\.\d+)? *([-\+][\d:]+)?( BC)?$/,
+  params 	=> [ qw( year    month    day      hour     minute  second nanosecond time_zone       era) ],
   postprocess 	=> [ \&_fix_era, \&_fix_timezone, \&_fix_nanosecond ],
 };
 
@@ -235,8 +235,8 @@
 #
 my $pg_datetime_pg_eu =
 {
-  regex		=> qr/^\S{3,} (\d{2,}) (\S{3,}) (\d{2,}):(\d{2,}):(\d{2,})(\.\d+)? (\d{4,})( BC)? *((?:[-\+][\d:]+)|(?:\S+))?$/,
-  params 	=> [ qw(       day      month    hour     minute  second nanosecond year    era     time_zone) ],
+  regex		=> qr/^\S{3,} (\d{2,}) (\S{3,}) (\d{2,}):(\d{2,}):(\d{2,})(\.\d+)? (\d{4,}) *((?:[-\+][\d:]+)|(?:\S+))?( BC)?$/,
+  params 	=> [ qw(       day      month    hour     minute  second nanosecond year      time_zone                 era ) ],
   postprocess 	=> [ \&_fix_era, \&_fix_timezone, \&_fix_nanosecond ],
 };
 
@@ -244,8 +244,8 @@
 #
 my $pg_datetime_pg_us =
 {
-  regex		=> qr/^\S{3,} (\S{3,}) (\s{2,}) (\d{2,}):(\d{2,}):(\d{2,})(\.\d+)? (\d{4,})( BC)? *((?:[-\+][\d:]+)|(?:\S+))?$/,
-  params 	=> [ qw(       month    day      hour     minute  second nanosecond year    era     time_zone) ],
+  regex		=> qr/^\S{3,} (\S{3,}) (\s{2,}) (\d{2,}):(\d{2,}):(\d{2,})(\.\d+)? (\d{4,}) *((?:[-\+][\d:]+)|(?:\S+))?( BC)?$/,
+  params 	=> [ qw(       month    day      hour     minute  second nanosecond year     time_zone                 era ) ],
   postprocess 	=> [ \&_fix_era, \&_fix_month_names, \&_fix_timezone, \&_fix_nanosecond ],
 };
 
@@ -254,8 +254,8 @@
 #
 my $pg_datetime_sql =
 {
-  regex		=> qr/^(\d{2,})\/(\d{2,})\/(\d{4,}) (\d{2,}):(\d{2,}):(\d{2,})(\.\d+)?( BC)? *((?:[-\+][\d:]+)|(?:\S+))?$/,
-  params 	=> [ qw( month    day       year    hour     minute   second nanosecond era      time_zone) ],
+  regex		=> qr/^(\d{2,})\/(\d{2,})\/(\d{4,}) (\d{2,}):(\d{2,}):(\d{2,})(\.\d+)? *((?:[-\+][\d:]+)|(?:\S+))?( BC)?$/,
+  params 	=> [ qw( month    day       year    hour     minute   second nanosecond    time_zone               era ) ],
   postprocess 	=> [ \&_fix_era, \&_fix_eu, \&_fix_timezone, \&_fix_nanosecond ],
 };
 
@@ -263,8 +263,8 @@
 #
 my $pg_datetime_german =
 {
-  regex		=> qr/^(\d{2,})\.(\d{2,})\.(\d{4,}) (\d{2,}):(\d{2,}):(\d{2,})(\.\d+)?( BC)? *((?:[-\+][\d:]+)|(?:\S+))?$/,
-  params 	=> [ qw( day      month     year    hour     minute   second nanosecond era    time_zone) ],
+  regex		=> qr/^(\d{2,})\.(\d{2,})\.(\d{4,}) (\d{2,}):(\d{2,}):(\d{2,})(\.\d+)? *((?:[-\+][\d:]+)|(?:\S+))?( BC)?$/,
+  params 	=> [ qw( day      month     year    hour     minute   second nanosecond time_zone                 era ) ],
   postprocess 	=> [ \&_fix_era, \&_fix_timezone, \&_fix_nanosecond ],
 };
 

Modified: trunk/libdatetime-format-pg-perl/t/1basic.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-pg-perl/t/1basic.t?rev=33090&op=diff
==============================================================================
--- trunk/libdatetime-format-pg-perl/t/1basic.t (original)
+++ trunk/libdatetime-format-pg-perl/t/1basic.t Sun Apr 12 10:35:41 2009
@@ -1,4 +1,4 @@
-# $Id: /mirror/datetime/DateTime-Format-Pg/trunk/t/1basic.t 5865 2003-05-30T14:04:49.000000Z cfaerber  $
+# $Id: 1basic.t 1039 2003-05-30 14:04:49Z cfaerber $
 use Test::More tests => 3;
 BEGIN { 
   use_ok('DateTime::Format::Pg')

Modified: trunk/libdatetime-format-pg-perl/t/2new-param.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-pg-perl/t/2new-param.t?rev=33090&op=diff
==============================================================================
--- trunk/libdatetime-format-pg-perl/t/2new-param.t (original)
+++ trunk/libdatetime-format-pg-perl/t/2new-param.t Sun Apr 12 10:35:41 2009
@@ -1,4 +1,4 @@
-# $Id: /mirror/datetime/DateTime-Format-Pg/trunk/t/2new-param.t 5865 2003-05-30T14:04:49.000000Z cfaerber  $
+# $Id: 2new-param.t 1039 2003-05-30 14:04:49Z cfaerber $
 use Test::More tests => 2;
 use DateTime::Format::Pg 0.02;
 

Modified: trunk/libdatetime-format-pg-perl/t/format_date.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-pg-perl/t/format_date.t?rev=33090&op=diff
==============================================================================
--- trunk/libdatetime-format-pg-perl/t/format_date.t (original)
+++ trunk/libdatetime-format-pg-perl/t/format_date.t Sun Apr 12 10:35:41 2009
@@ -1,4 +1,4 @@
-# $Id: /mirror/datetime/DateTime-Format-Pg/trunk/t/format_date.t 5865 2003-05-30T14:04:49.000000Z cfaerber  $
+# $Id: format_date.t 1039 2003-05-30 14:04:49Z cfaerber $
 use Test::More tests => 3;
 use DateTime 0.10;
 use DateTime::Format::Pg 0.02;

Modified: trunk/libdatetime-format-pg-perl/t/format_datetime.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-pg-perl/t/format_datetime.t?rev=33090&op=diff
==============================================================================
--- trunk/libdatetime-format-pg-perl/t/format_datetime.t (original)
+++ trunk/libdatetime-format-pg-perl/t/format_datetime.t Sun Apr 12 10:35:41 2009
@@ -1,4 +1,4 @@
-# $Id: /mirror/datetime/DateTime-Format-Pg/trunk/t/format_datetime.t 8449 2007-03-23T03:01:42.879913Z lestrrat  $
+# $Id: format_datetime.t 3645 2007-03-23 03:01:42Z lestrrat $
 use Test::More tests => 11;
 use DateTime 0.10;
 use DateTime::TimeZone;

Modified: trunk/libdatetime-format-pg-perl/t/format_interval.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-pg-perl/t/format_interval.t?rev=33090&op=diff
==============================================================================
--- trunk/libdatetime-format-pg-perl/t/format_interval.t (original)
+++ trunk/libdatetime-format-pg-perl/t/format_interval.t Sun Apr 12 10:35:41 2009
@@ -1,4 +1,4 @@
-# $Id: /mirror/datetime/DateTime-Format-Pg/trunk/t/format_interval.t 8207 2006-03-31T22:04:06.595671Z lestrrat  $
+# $Id: format_interval.t 3403 2006-03-31 22:04:06Z lestrrat $
 use Test::More tests => 4;
 use DateTime 0.10;
 use DateTime::Duration;

Modified: trunk/libdatetime-format-pg-perl/t/parse_date.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-pg-perl/t/parse_date.t?rev=33090&op=diff
==============================================================================
--- trunk/libdatetime-format-pg-perl/t/parse_date.t (original)
+++ trunk/libdatetime-format-pg-perl/t/parse_date.t Sun Apr 12 10:35:41 2009
@@ -1,4 +1,4 @@
-# $Id: /mirror/datetime/DateTime-Format-Pg/trunk/t/parse_date.t 5865 2003-05-30T14:04:49.000000Z cfaerber  $
+# $Id: parse_date.t 1039 2003-05-30 14:04:49Z cfaerber $
 use Test::More tests => 18;
 use DateTime 0.10;
 use DateTime::TimeZone 0.12;

Modified: trunk/libdatetime-format-pg-perl/t/parse_datetime.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-pg-perl/t/parse_datetime.t?rev=33090&op=diff
==============================================================================
--- trunk/libdatetime-format-pg-perl/t/parse_datetime.t (original)
+++ trunk/libdatetime-format-pg-perl/t/parse_datetime.t Sun Apr 12 10:35:41 2009
@@ -1,4 +1,4 @@
-# $Id: /mirror/datetime/DateTime-Format-Pg/trunk/t/parse_datetime.t 5872 2003-07-16T13:42:35.000000Z cfaerber  $
+# $Id: parse_datetime.t 1046 2003-07-16 13:42:35Z cfaerber $
 use Test::More tests => 8;
 use DateTime::Format::Pg 0.02;
 

Modified: trunk/libdatetime-format-pg-perl/t/parse_datetime2.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-pg-perl/t/parse_datetime2.t?rev=33090&op=diff
==============================================================================
--- trunk/libdatetime-format-pg-perl/t/parse_datetime2.t (original)
+++ trunk/libdatetime-format-pg-perl/t/parse_datetime2.t Sun Apr 12 10:35:41 2009
@@ -1,4 +1,4 @@
-# $Id: /mirror/datetime/DateTime-Format-Pg/trunk/t/parse_datetime2.t 5883 2005-03-16T16:50:40.000000Z cfaerber  $
+# $Id: parse_datetime2.t 1057 2005-03-16 16:50:40Z cfaerber $
 use Test::More tests => 8;
 use DateTime::Format::Pg 0.02;
 

Modified: trunk/libdatetime-format-pg-perl/t/parse_infinity.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-pg-perl/t/parse_infinity.t?rev=33090&op=diff
==============================================================================
--- trunk/libdatetime-format-pg-perl/t/parse_infinity.t (original)
+++ trunk/libdatetime-format-pg-perl/t/parse_infinity.t Sun Apr 12 10:35:41 2009
@@ -1,4 +1,4 @@
-# $Id: /mirror/datetime/DateTime-Format-Pg/trunk/t/parse_infinity.t 5887 2006-01-07T00:45:49.000000Z lestrrat  $
+# $Id: parse_infinity.t 1061 2006-01-07 00:45:49Z lestrrat $
 use Test::More tests => 4;
 use DateTime::Format::Pg 0.02;
 

Modified: trunk/libdatetime-format-pg-perl/t/parse_interval.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-pg-perl/t/parse_interval.t?rev=33090&op=diff
==============================================================================
--- trunk/libdatetime-format-pg-perl/t/parse_interval.t (original)
+++ trunk/libdatetime-format-pg-perl/t/parse_interval.t Sun Apr 12 10:35:41 2009
@@ -1,4 +1,4 @@
-# $Id: /mirror/datetime/DateTime-Format-Pg/trunk/t/parse_interval.t 8491 2007-05-27T15:32:27.240617Z lestrrat  $
+# $Id: parse_interval.t 3687 2007-05-27 15:32:27Z lestrrat $
 use strict;
 use Test::More;
 use DateTime;

Modified: trunk/libdatetime-format-pg-perl/t/parse_time.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-pg-perl/t/parse_time.t?rev=33090&op=diff
==============================================================================
--- trunk/libdatetime-format-pg-perl/t/parse_time.t (original)
+++ trunk/libdatetime-format-pg-perl/t/parse_time.t Sun Apr 12 10:35:41 2009
@@ -1,4 +1,4 @@
-# $Id: /mirror/datetime/DateTime-Format-Pg/trunk/t/parse_time.t 5881 2005-03-16T16:13:19.000000Z cfaerber  $
+# $Id: parse_time.t 1055 2005-03-16 16:13:19Z cfaerber $
 use Test::More tests => 10;
 use DateTime::Format::Pg 0.08;
 

Modified: trunk/libdatetime-format-pg-perl/t/tz_1901_2038.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-format-pg-perl/t/tz_1901_2038.t?rev=33090&op=diff
==============================================================================
--- trunk/libdatetime-format-pg-perl/t/tz_1901_2038.t (original)
+++ trunk/libdatetime-format-pg-perl/t/tz_1901_2038.t Sun Apr 12 10:35:41 2009
@@ -1,4 +1,4 @@
-# $Id: /mirror/datetime/DateTime-Format-Pg/trunk/t/tz_1901_2038.t 5865 2003-05-30T14:04:49.000000Z cfaerber  $
+# $Id: tz_1901_2038.t 1039 2003-05-30 14:04:49Z cfaerber $
 use Test::More tests => 4;
 use DateTime 0.10;
 use DateTime::TimeZone 0.12;




More information about the Pkg-perl-cvs-commits mailing list