r20600 - in /branches/upstream/libregexp-common-time-perl/current: Build.PL Changes META.yml Makefile.PL README SIGNATURE lib/Regexp/Common/time.pm
emhn-guest at users.alioth.debian.org
emhn-guest at users.alioth.debian.org
Sun Jun 1 16:55:31 UTC 2008
Author: emhn-guest
Date: Sun Jun 1 16:55:31 2008
New Revision: 20600
URL: http://svn.debian.org/wsvn/?sc=1&rev=20600
Log:
[svn-upgrade] Integrating new upstream version, libregexp-common-time-perl (0.04)
Modified:
branches/upstream/libregexp-common-time-perl/current/Build.PL
branches/upstream/libregexp-common-time-perl/current/Changes
branches/upstream/libregexp-common-time-perl/current/META.yml
branches/upstream/libregexp-common-time-perl/current/Makefile.PL
branches/upstream/libregexp-common-time-perl/current/README
branches/upstream/libregexp-common-time-perl/current/SIGNATURE
branches/upstream/libregexp-common-time-perl/current/lib/Regexp/Common/time.pm
Modified: branches/upstream/libregexp-common-time-perl/current/Build.PL
URL: http://svn.debian.org/wsvn/branches/upstream/libregexp-common-time-perl/current/Build.PL?rev=20600&op=diff
==============================================================================
--- branches/upstream/libregexp-common-time-perl/current/Build.PL (original)
+++ branches/upstream/libregexp-common-time-perl/current/Build.PL Sun Jun 1 16:55:31 2008
@@ -1,17 +1,21 @@
use strict;
use warnings;
-use Module::Build;
+
+eval {require Module::Build};
+if ($@)
+{
+ warn "Module::Build is required for Build.PL\n";
+ exit 0;
+}
my $builder = Module::Build->new(
module_name => 'Regexp::Common::time',
- license => 'perl',
+ license => 'unrestricted',
dist_author => 'Eric J. Roode <eroode at barrack.com>',
dist_version_from => 'lib/Regexp/Common/time.pm',
build_requires =>
{
'Test::More' => '0.40',
- 'Regexp::Common' => 0,
- 'POSIX' => 0,
},
requires =>
{
Modified: branches/upstream/libregexp-common-time-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libregexp-common-time-perl/current/Changes?rev=20600&op=diff
==============================================================================
--- branches/upstream/libregexp-common-time-perl/current/Changes (original)
+++ branches/upstream/libregexp-common-time-perl/current/Changes Sun Jun 1 16:55:31 2008
@@ -6,3 +6,10 @@
0.02 23 May 2008
- Add mail, MAIL, and american formats.
- Fix many broken test cases.
+
+0.03 25 May 2008
+ - Bug fix: Makefile.PL had a syntax error.
+
+0.04 29 May 2008
+ - Possible fix for Taiwanese locale test failures.
+ Thanks to CPAN tester "imacat".
Modified: branches/upstream/libregexp-common-time-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libregexp-common-time-perl/current/META.yml?rev=20600&op=diff
==============================================================================
--- branches/upstream/libregexp-common-time-perl/current/META.yml (original)
+++ branches/upstream/libregexp-common-time-perl/current/META.yml Sun Jun 1 16:55:31 2008
@@ -1,24 +1,20 @@
---
name: Regexp-Common-time
-version: 0.03
+version: 0.04
author:
- 'Eric J. Roode <eroode at barrack.com>'
abstract: Date and time regexps.
-license: perl
-resources:
- license: http://dev.perl.org/licenses/
+license: unrestricted
requires:
POSIX: 0
Regexp::Common: 0
build_requires:
- POSIX: 0
- Regexp::Common: 0
Test::More: 0.40
provides:
Regexp::Common::time:
file: lib/Regexp/Common/time.pm
- version: 0.03
-generated_by: Module::Build version 0.2805
+ version: 0.04
+generated_by: Module::Build version 0.280801
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.2.html
version: 1.2
Modified: branches/upstream/libregexp-common-time-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/branches/upstream/libregexp-common-time-perl/current/Makefile.PL?rev=20600&op=diff
==============================================================================
--- branches/upstream/libregexp-common-time-perl/current/Makefile.PL (original)
+++ branches/upstream/libregexp-common-time-perl/current/Makefile.PL Sun Jun 1 16:55:31 2008
@@ -6,10 +6,11 @@
VERSION_FROM => 'lib/Regexp/Common/time.pm', # finds $VERSION
PREREQ_PM =>
{
- 'Test::More' => '0.40',
- 'Regexp::Common' => 0,
- 'POSIX' => 0,
+ 'Test::More' => '0.40',
+ 'Regexp::Common' => 0,
+ 'POSIX' => 0,
},
+ PL_FILES => {},
($] >= 5.005 ? ## Add these new keywords supported since 5.005
(ABSTRACT_FROM => 'lib/Regexp/Common/time.pm', # retrieve abstract from module
AUTHOR => 'eroode <eroode at barrack.com>') : ()),
Modified: branches/upstream/libregexp-common-time-perl/current/README
URL: http://svn.debian.org/wsvn/branches/upstream/libregexp-common-time-perl/current/README?rev=20600&op=diff
==============================================================================
--- branches/upstream/libregexp-common-time-perl/current/README (original)
+++ branches/upstream/libregexp-common-time-perl/current/README Sun Jun 1 16:55:31 2008
@@ -1,4 +1,4 @@
-Regexp::Common::time v0.03
+Regexp::Common::time v0.04
==========================
This is a Regexp::Common plugin that provides regular expressions for
@@ -61,22 +61,12 @@
COPYRIGHT AND LICENSE
-Copyright (c) 2005-2008 by Eric J. Roode, ROODE -at- cpan -dot- org
+Eric J. Roode, roode @ cpan . org
-All rights reserved.
+Copyright (c) 2005-2008 by Eric J. Roode. All Rights Reserved.
+This module is free software; See the copyright notice in the
+module source code for full details.
-This module is copyrighted only to ensure proper attribution of
-authorship and to ensure that it remains available to all. This
-module is free, open-source software. This module may be freely used
-for any purpose, commercial, public, or private, provided that proper
-credit is given, and that no more-restrictive license is applied to
-derivative (not dependent) works.
-
-Substantial efforts have been made to ensure that this software meets
-high quality standards; however, no guarantee can be made that there
-are no undiscovered bugs, and no warranty is made as to suitability to
-any given use, including merchantability. Should this module cause
-your house to burn down, your dog to collapse, your heart-lung machine
-to fail, your spouse to desert you, or George Bush to be re-elected,
-I can offer only my sincere sympathy and apologies, and promise to
-endeavor to improve the software.
+To avoid my spam filter, please include "Perl", "module", or this
+module's name in the message's subject line, and/or GPG-sign your
+message.
Modified: branches/upstream/libregexp-common-time-perl/current/SIGNATURE
URL: http://svn.debian.org/wsvn/branches/upstream/libregexp-common-time-perl/current/SIGNATURE?rev=20600&op=diff
==============================================================================
--- branches/upstream/libregexp-common-time-perl/current/SIGNATURE (original)
+++ branches/upstream/libregexp-common-time-perl/current/SIGNATURE Sun Jun 1 16:55:31 2008
@@ -14,14 +14,14 @@
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
-SHA1 e18d5ce13b858ce4170edc152f0b215e6bc535ec Build.PL
-SHA1 7b18399be1767b0882ed809438f0b0c21a674201 Changes
+SHA1 cef63ef384904b1cdf7d065533b2eb04e0b70235 Build.PL
+SHA1 be3145cd4b604c3a54ba1c24d54af71bedaa31f2 Changes
SHA1 938071f3d3ae0b2ab9e77332a651c274e33b17c5 MANIFEST
SHA1 af38155153ca6edd302b444b260fc2c8a4652a7b MANIFEST.SKIP
-SHA1 4d40d3f0bb572a87c3f25603cf1042512352d587 META.yml
-SHA1 85e5cef5d60a3a2d38ef296d6b3d517c9293bcea Makefile.PL
-SHA1 5bc0f14e9aff4ca3239bcd22bd0257947a07a103 README
-SHA1 3c6118cf94dbe7f7013088180d06c2f17efe85a5 lib/Regexp/Common/time.pm
+SHA1 2ea67c7ce3c12275f0cbf38c93cbc72af1ba5f6f META.yml
+SHA1 b31b381fd9ce326cd7942ca3b4e2eb54d5021cd0 Makefile.PL
+SHA1 f99ef71aa5b65dd0df912b874c84784dd7c18cce README
+SHA1 857bd606b2a985da50321df146a7360a004ac871 lib/Regexp/Common/time.pm
SHA1 a1d093f11bafe2e27c50ac27a8a5bc1cfb1f9d4b t/0-signature.t
SHA1 a40253b3c8eb0594a3e000a102344dc4307577e0 t/1-load.t
SHA1 17c2f0ae4f6b44054f1fda206dc8f72839ce5e05 t/american.t
@@ -38,7 +38,7 @@
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.9 (Cygwin)
-iEYEARECAAYFAkg5absACgkQwoSYc5qQVqp6kwCeIEwmsDyMJ6jWFIQUsgLFOyVn
-mmgAnig16RCcKU5lu6c7eW4+0WBVNmQs
-=+Csf
+iEYEARECAAYFAkg+2G8ACgkQwoSYc5qQVqqgNQCdEDcHjob8yrx4BE7xcN6zH62x
+NCMAmwSJRTtFUzfD4f9PDC0xXBQiY56t
+=4ioS
-----END PGP SIGNATURE-----
Modified: branches/upstream/libregexp-common-time-perl/current/lib/Regexp/Common/time.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libregexp-common-time-perl/current/lib/Regexp/Common/time.pm?rev=20600&op=diff
==============================================================================
--- branches/upstream/libregexp-common-time-perl/current/lib/Regexp/Common/time.pm (original)
+++ branches/upstream/libregexp-common-time-perl/current/lib/Regexp/Common/time.pm Sun Jun 1 16:55:31 2008
@@ -8,13 +8,13 @@
=head1 VERSION
-This is version 0.03 of Regexp::Common::time, May 25, 2008.
+This is version 0.04 of Regexp::Common::time, May 29, 2008.
=cut
use strict;
package Regexp::Common::time;
-$Regexp::Common::time::VERSION = '0.03';
+$Regexp::Common::time::VERSION = '0.04';
use Regexp::Common qw(pattern);
use POSIX;
@@ -572,7 +572,7 @@
sub _first_chars
{
my %uniq = map {substr ($_,0,1) => 1} @_;
- return join q{}, keys %uniq;
+ return join q{}, map quotemeta, keys %uniq;
}
sub _get_full_month_pattern
@@ -605,7 +605,7 @@
}
my $prematch = _first_chars(@Mon_Name);
- my $alternat = join '|', @Mon_Name;
+ my $alternat = join '|', map quotemeta, @Mon_Name;
return qq/(?=[$prematch])(?>$alternat)/;
}
@@ -640,7 +640,7 @@
}
my $prematch = _first_chars(@Mon_Abbr);
- my $alternat = join '|', @Mon_Abbr;
+ my $alternat = join '|', map quotemeta, @Mon_Abbr;
return qq/(?=[$prematch])(?>$alternat)/;
}
@@ -669,7 +669,7 @@
}
my $prematch = _first_chars(@Day_Name);
- my $alternat = join '|', @Day_Name;
+ my $alternat = join '|', map quotemeta, @Day_Name;
return qq/(?=[$prematch])(?>$alternat)/;
}
@@ -699,7 +699,7 @@
}
my $prematch = _first_chars(@Day_Abbr);
- my $alternat = join '|', @Day_Abbr;
+ my $alternat = join '|', map quotemeta, @Day_Abbr;
return qq/(?=[$prematch])(?>$alternat)/;
}
@@ -1340,23 +1340,29 @@
$record = "10-SEP-2005";
# This block tries M-D-Y first, then D-M-Y, then Y-M-D
- if ( ((undef,$m,$d,$y) = $record =~ /^$RE{time}{mdy}{-keep}/)
- || ((undef,$d,$m,$y) = $record =~ /^$RE{time}{dmy}{-keep}/)
- || ((undef,$y,$m,$d) = $record =~ /^$RE{time}{ymd}{-keep}/) )
+ my $matched;
+ foreach my $pattern (qw(mdy dmy ymd))
{
- eval {($year, $month, $day) = normalize_ymd($y, $m, $d)};
+ @values = $record =~ /^$RE{time}{$pattern}{-keep}/
+ or next;
+
+ $matched = $pattern;
}
- else # give up
+ if ($matched)
{
- ... # handle bogus data (no match)
+ eval{ ($year, $month, $day) = normalize_rct($matched, @values) };
+ if ($@)
+ {
+ .... # handle erroneous data
+ }
}
- #
- if ($@)
+ else
{
- ... # handle bogus data (erroneous)
+ .... # no match
}
#
# $day is now 10; $month is now 09; $year is now 2005.
+
# Time examples
@@ -1423,9 +1429,9 @@
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.9 (Cygwin)
-iEYEARECAAYFAkg5ZYoACgkQwoSYc5qQVqr8wACfaNljWjMNpy28FvdjpZuWMWmr
-VaAAnjpB6xwlDeoSQrKpFdehQIghzX+X
-=qPP1
+iEYEARECAAYFAkg+1soACgkQwoSYc5qQVqoYRQCffGBoTopPnSbhpbNer2Zz/yXQ
+zoAAnR2X0tzw4+5AVKBb3PpbnuJ5EcT5
+=murM
-----END PGP SIGNATURE-----
=end gpg
More information about the Pkg-perl-cvs-commits
mailing list