r20602 - in /trunk/libregexp-common-time-perl: Build.PL Changes META.yml Makefile.PL README SIGNATURE debian/changelog lib/Regexp/Common/time.pm

emhn-guest at users.alioth.debian.org emhn-guest at users.alioth.debian.org
Sun Jun 1 17:13:08 UTC 2008


Author: emhn-guest
Date: Sun Jun  1 17:13:07 2008
New Revision: 20602

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=20602
Log:
- Licensing still looks funny. Looks OK in the README, but it still
  "interesting" inside the module.

Modified:
    trunk/libregexp-common-time-perl/Build.PL
    trunk/libregexp-common-time-perl/Changes
    trunk/libregexp-common-time-perl/META.yml
    trunk/libregexp-common-time-perl/Makefile.PL
    trunk/libregexp-common-time-perl/README
    trunk/libregexp-common-time-perl/SIGNATURE
    trunk/libregexp-common-time-perl/debian/changelog
    trunk/libregexp-common-time-perl/lib/Regexp/Common/time.pm

Modified: trunk/libregexp-common-time-perl/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libregexp-common-time-perl/Build.PL?rev=20602&op=diff
==============================================================================
--- trunk/libregexp-common-time-perl/Build.PL (original)
+++ trunk/libregexp-common-time-perl/Build.PL Sun Jun  1 17:13:07 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: trunk/libregexp-common-time-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libregexp-common-time-perl/Changes?rev=20602&op=diff
==============================================================================
--- trunk/libregexp-common-time-perl/Changes (original)
+++ trunk/libregexp-common-time-perl/Changes Sun Jun  1 17:13:07 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: trunk/libregexp-common-time-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libregexp-common-time-perl/META.yml?rev=20602&op=diff
==============================================================================
--- trunk/libregexp-common-time-perl/META.yml (original)
+++ trunk/libregexp-common-time-perl/META.yml Sun Jun  1 17:13:07 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: trunk/libregexp-common-time-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libregexp-common-time-perl/Makefile.PL?rev=20602&op=diff
==============================================================================
--- trunk/libregexp-common-time-perl/Makefile.PL (original)
+++ trunk/libregexp-common-time-perl/Makefile.PL Sun Jun  1 17:13:07 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: trunk/libregexp-common-time-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libregexp-common-time-perl/README?rev=20602&op=diff
==============================================================================
--- trunk/libregexp-common-time-perl/README (original)
+++ trunk/libregexp-common-time-perl/README Sun Jun  1 17:13:07 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: trunk/libregexp-common-time-perl/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libregexp-common-time-perl/SIGNATURE?rev=20602&op=diff
==============================================================================
--- trunk/libregexp-common-time-perl/SIGNATURE (original)
+++ trunk/libregexp-common-time-perl/SIGNATURE Sun Jun  1 17:13:07 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: trunk/libregexp-common-time-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libregexp-common-time-perl/debian/changelog?rev=20602&op=diff
==============================================================================
--- trunk/libregexp-common-time-perl/debian/changelog (original)
+++ trunk/libregexp-common-time-perl/debian/changelog Sun Jun  1 17:13:07 2008
@@ -1,14 +1,17 @@
-libregexp-common-time-perl (0.03-1) UNRELEASED; urgency=low
+libregexp-common-time-perl (0.04-1) UNRELEASED; urgency=low
 
   TODO:
-  - the new "license" (cf. README and time.pm) looks "interesting"
-  - test output doesn't look very healthy
-  
+  - Licensing still looks funny. Looks OK in the README, but it still
+    "interesting" inside the module.
+
+  [ Ernesto Hernández-Novich (USB) ]
   * New upstream release.
+
+  [ gregor herrmann ]
   * debian/copyright: adjust years of copyright.
   * Refresh debian/rules, no functional changes.
 
- -- gregor herrmann <gregoa at debian.org>  Sun, 25 May 2008 01:12:05 +0200
+ -- Ernesto Hernández-Novich (USB) <emhn at usb.ve>  Sun,  1 Jun 2008 12:26:04 -0430
 
 libregexp-common-time-perl (0.01-1) unstable; urgency=low
 

Modified: trunk/libregexp-common-time-perl/lib/Regexp/Common/time.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libregexp-common-time-perl/lib/Regexp/Common/time.pm?rev=20602&op=diff
==============================================================================
--- trunk/libregexp-common-time-perl/lib/Regexp/Common/time.pm (original)
+++ trunk/libregexp-common-time-perl/lib/Regexp/Common/time.pm Sun Jun  1 17:13:07 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