r29230 - in /trunk/libdata-formvalidator-perl: ./ debian/ lib/Data/ lib/Data/FormValidator/ lib/Data/FormValidator/Constraints/ t/

ansgar-guest at users.alioth.debian.org ansgar-guest at users.alioth.debian.org
Sun Jan 4 12:49:57 UTC 2009


Author: ansgar-guest
Date: Sun Jan  4 12:49:54 2009
New Revision: 29230

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=29230
Log:
* New upstream release.
* debian/control: Add myself to Uploaders.
* Convert debian/copyright to proposed machine-readable format.
* debain/copyright: List all copyright holders for debian/*.  The list
  of contributors was taken from debian/changelog.
* Refresh debian/rules for debhelper 7.
* debian/control: Move libmodule-build-perl to Build-Depends-Indep.

Modified:
    trunk/libdata-formvalidator-perl/Changes
    trunk/libdata-formvalidator-perl/META.yml
    trunk/libdata-formvalidator-perl/README
    trunk/libdata-formvalidator-perl/debian/changelog
    trunk/libdata-formvalidator-perl/debian/compat
    trunk/libdata-formvalidator-perl/debian/control
    trunk/libdata-formvalidator-perl/debian/copyright
    trunk/libdata-formvalidator-perl/debian/rules
    trunk/libdata-formvalidator-perl/lib/Data/FormValidator.pm
    trunk/libdata-formvalidator-perl/lib/Data/FormValidator/Constraints.pm
    trunk/libdata-formvalidator-perl/lib/Data/FormValidator/Constraints/Dates.pm
    trunk/libdata-formvalidator-perl/lib/Data/FormValidator/Constraints/Upload.pm
    trunk/libdata-formvalidator-perl/lib/Data/FormValidator/ConstraintsFactory.pm
    trunk/libdata-formvalidator-perl/lib/Data/FormValidator/Filters.pm
    trunk/libdata-formvalidator-perl/lib/Data/FormValidator/Results.pm
    trunk/libdata-formvalidator-perl/t/dates.t
    trunk/libdata-formvalidator-perl/t/dates_closure.t
    trunk/libdata-formvalidator-perl/t/untaint.t

Modified: trunk/libdata-formvalidator-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-formvalidator-perl/Changes?rev=29230&op=diff
==============================================================================
--- trunk/libdata-formvalidator-perl/Changes (original)
+++ trunk/libdata-formvalidator-perl/Changes Sun Jan  4 12:49:54 2009
@@ -1,3 +1,20 @@
+
+4.63 Sat Jan  3 12:46:15 EST 2009
+    [DOCUMENTATION]
+    - Improve docs for writing your own constraints (girlwithglasses) 
+
+4.62 Sat Jan  3 12:10:14 EST 2009
+
+    [DOCUMENTATION]
+    - Fix typo in ConstraintsFactory docs (Geraint A. Edwards)
+    - Clarified docs for get_filtered_data (Lisa Hagemann)
+    - Clarify that 'field_filter_regexp_map' can take coderefs as values (Ron Savage)
+
+    [INTERNALS]
+    - Better diagnostics when load_profiles fails (Thoralf Klein)
+    - Improved portability of t/untaint.t (Alexandr Ciornii)
+    - Make some tests conditional on Date::Calc being installed (Frank Wiles)
+
 4.61 Mon Jun 16 14:37:31 EDT 2008
 
     [INTERNALS]

Modified: trunk/libdata-formvalidator-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-formvalidator-perl/META.yml?rev=29230&op=diff
==============================================================================
--- trunk/libdata-formvalidator-perl/META.yml (original)
+++ trunk/libdata-formvalidator-perl/META.yml Sun Jan  4 12:49:54 2009
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name: Data-FormValidator
-version: 4.61
+version: 4.63
 author:
   - Mark Stosberg <mark at summersault.com>
 abstract: |-
@@ -22,26 +22,26 @@
 provides:
   Data::FormValidator:
     file: lib/Data/FormValidator.pm
-    version: 4.61
+    version: 4.63
   Data::FormValidator::Constraints:
     file: lib/Data/FormValidator/Constraints.pm
-    version: 4.6
+    version: 4.63
   Data::FormValidator::Constraints::Dates:
     file: lib/Data/FormValidator/Constraints/Dates.pm
-    version: 4.60
+    version: 4.62
   Data::FormValidator::Constraints::RegexpCommon:
     file: lib/Data/FormValidator/Results.pm
-    version: 4.6
+    version: 4.62
   Data::FormValidator::Constraints::Upload:
     file: lib/Data/FormValidator/Constraints/Upload.pm
-    version: 4.6
+    version: 4.62
   Data::FormValidator::ConstraintsFactory:
     file: lib/Data/FormValidator/ConstraintsFactory.pm
-    version: 1.6
+    version: 1.7
   Data::FormValidator::Filters:
     file: lib/Data/FormValidator/Filters.pm
-    version: 4.6
+    version: 4.62
   Data::FormValidator::Results:
     file: lib/Data/FormValidator/Results.pm
-    version: 4.6
+    version: 4.62
 generated_by: Module::Build version 0.2611

Modified: trunk/libdata-formvalidator-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-formvalidator-perl/README?rev=29230&op=diff
==============================================================================
--- trunk/libdata-formvalidator-perl/README (original)
+++ trunk/libdata-formvalidator-perl/README Sun Jan  4 12:49:54 2009
@@ -340,10 +340,12 @@
          qr/_name$/    => ['ucfirst'],
      },
 
-    This is a hash reference where the keys are the regular expressions to
-    use and the values are references to arrays of filters which will be
-    applied to specific input fields. Used to apply filters to fields that
-    match a regular expression.
+    'field_filter_regexp_map' is used to apply filters to fields that match
+    a regular expression. This is a hash reference where the keys are the
+    regular expressions to use and the values are references to arrays of
+    filters which will be applied to specific input fields. Just as with
+    'field_filters', you can you use a built-in filter or use a coderef to
+    supply your own.
 
   constraint_methods
      use Data::FormValidator::Constraints qw(:closures);

Modified: trunk/libdata-formvalidator-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-formvalidator-perl/debian/changelog?rev=29230&op=diff
==============================================================================
--- trunk/libdata-formvalidator-perl/debian/changelog (original)
+++ trunk/libdata-formvalidator-perl/debian/changelog Sun Jan  4 12:49:54 2009
@@ -1,9 +1,19 @@
-libdata-formvalidator-perl (4.61-2) UNRELEASED; urgency=low
-
+libdata-formvalidator-perl (4.63-1) unstable; urgency=low
+
+  [ gregor herrmann ]
   * debian/control: Changed: Switched Vcs-Browser field to ViewSVN
     (source stanza).
 
- -- gregor herrmann <gregoa at debian.org>  Sun, 16 Nov 2008 20:41:13 +0100
+  [ Ansgar Burchardt ]
+  * New upstream release.
+  * debian/control: Add myself to Uploaders.
+  * Convert debian/copyright to proposed machine-readable format.
+  * debain/copyright: List all copyright holders for debian/*.  The list
+    of contributors was taken from debian/changelog.
+  * Refresh debian/rules for debhelper 7.
+  * debian/control: Move libmodule-build-perl to Build-Depends-Indep.
+
+ -- Ansgar Burchardt <ansgar at 43-1.org>  Sun, 04 Jan 2009 13:49:39 +0100
 
 libdata-formvalidator-perl (4.61-1) unstable; urgency=low
   

Modified: trunk/libdata-formvalidator-perl/debian/compat
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-formvalidator-perl/debian/compat?rev=29230&op=diff
==============================================================================
--- trunk/libdata-formvalidator-perl/debian/compat (original)
+++ trunk/libdata-formvalidator-perl/debian/compat Sun Jan  4 12:49:54 2009
@@ -1,1 +1,1 @@
-5
+7

Modified: trunk/libdata-formvalidator-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-formvalidator-perl/debian/control?rev=29230&op=diff
==============================================================================
--- trunk/libdata-formvalidator-perl/debian/control (original)
+++ trunk/libdata-formvalidator-perl/debian/control Sun Jan  4 12:49:54 2009
@@ -6,12 +6,12 @@
  Russ Allbery <rra at debian.org>,
  Niko Tyni <ntyni at iki.fi>, gregor herrmann <gregoa at debian.org>,
  Krzysztof Krzyzaniak (eloy) <eloy at debian.org>, Damyan Ivanov <dmn at debian.org>,
- Rene Mayorga <rmayorga at debian.org.sv>
-Build-Depends: debhelper (>= 5.0.0), perl (>= 5.8), libmodule-build-perl
+ Rene Mayorga <rmayorga at debian.org.sv>, Ansgar Burchardt <ansgar at 43-1.org>
+Build-Depends: debhelper (>= 7), perl (>= 5.8)
 Build-Depends-Indep: libregexp-common-perl, libimage-size-perl, 
  libfile-mmagic-perl, libdate-calc-perl, libmime-types-perl, 
  libtest-pod-perl, libcgi-simple-perl, libtemplate-perl, 
- libperl6-junction-perl, libemail-valid-perl
+ libperl6-junction-perl, libemail-valid-perl, libmodule-build-perl
 Standards-Version: 3.8.0
 Homepage: http://search.cpan.org/dist/Data-FormValidator/
 Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libdata-formvalidator-perl/

Modified: trunk/libdata-formvalidator-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-formvalidator-perl/debian/copyright?rev=29230&op=diff
==============================================================================
--- trunk/libdata-formvalidator-perl/debian/copyright (original)
+++ trunk/libdata-formvalidator-perl/debian/copyright Sun Jan  4 12:49:54 2009
@@ -1,10 +1,8 @@
-This package was debianized by Gunnar Wolf <gwolf at debian.org> on
-Sun, 14 Sep 2003 21:45:21 -0500.
-
-It was downloaded from http://search.cpan.org/dist/Data-FormValidator/
-
-Upstream Author: Mark Stosberg <markstos at cpan.org>
- Francis J. Lacoste and iNsu Innovations Inc. All
+Format-Specification:
+    http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=196
+Upstream-Maintainer: Mark Stosberg <markstos at cpan.org>
+Upstream-Source: http://search.cpan.org/dist/Data-FormValidator/
+Upstream-Name: Data-FormValidator
 
 Files: lib/Data/FormValidator.pm
 Copyright: © 1999 Francis J. Lacoste, iNsu Innovations
@@ -12,8 +10,6 @@
            © 1996-1999 by Bruce Albrecht
            © 2005 by Mark Stosberg
 License: GPL-1+ | Artistic
- This library is free software. You can modify and distribute it under the
- same terms as Perl itself
 
 Files: lib/Data/FormValidator/ConstraintsFactory.pm
 Copyright: © 2000 iNsu Innovations Inc.
@@ -21,8 +17,6 @@
            © 1996-1999 by Bruce Albrecht
            © 2005 by Mark Stosberg
 License: GPL-1+ | Artistic
- This library is free software. You can modify and distribute it under the
- same terms as Perl itself
 
 Files: *
 Copyright: © 1999 Francis J. Lacoste, iNsu Innovations
@@ -30,27 +24,30 @@
            © 1996-1999 by Bruce Albrecht
            © 2005 by Mark Stosberg
 License: GPL-1+ | Artistic
- This library is free software. You can modify and distribute it under the
- same terms as Perl itself
 
 Files: debian/*
-Copyright: © 2003 Gunnar Wolf
-           © 2004-2008 Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
+Copyright:
+ © 2003-2006, Gunnar Wolf <gwolf at debian.org>
+ © 2006,      Russ Allbery <rra at debian.org>
+ © 2006,      Niko Tyni <ntyni at iki.fi>
+ © 2006-2008, gregor herrmann <gregoa at debian.org>
+ © 2006-2007, Krzysztof Krzyzaniak (eloy) <eloy at debian.org>
+ © 2007,      Damyan Ivanov <dmn at debian.org>
+ © 2008,      Rene Mayorga <rmayorga at debian.org.sv>
+ © 2009,      Ansgar Burchardt <ansgar at 43-1.org>
 License: GPL-1+ | Artistic
- This library is free software. You can modify and distribute it under the
- same terms as Perl itself
 
+License: GPL-1+
+    This program is free software; you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation; either version 1, or (at your option)
+    any later version.
+    On Debian GNU/Linux systems, the complete text of the GNU General
+    Public License can be found in `/usr/share/common-licenses/GPL'
 
-The Perl license is:
+License: Artistic
     This program is free software; you can redistribute it and/or modify
-    it under the terms of either:
+    it under the terms of the Artistic License, which comes with Perl.
+    On Debian GNU/Linux systems, the complete text of the Artistic License
+    can be found in `/usr/share/common-licenses/Artistic'
 
-    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/libdata-formvalidator-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-formvalidator-perl/debian/rules?rev=29230&op=diff
==============================================================================
--- trunk/libdata-formvalidator-perl/debian/rules (original)
+++ trunk/libdata-formvalidator-perl/debian/rules Sun Jan  4 12:49:54 2009
@@ -1,48 +1,25 @@
 #!/usr/bin/make -f
-
-export PERL_MM_USE_DEFAULT=1
-
-PERL   ?= /usr/bin/perl
-PACKAGE = $(shell dh_listpackages)
-TMP     = $(CURDIR)/debian/$(PACKAGE)
 
 build: build-stamp
 build-stamp:
-	dh_testdir
-	$(PERL) Build.PL installdirs=vendor
-	$(PERL) Build
-	$(PERL) Build test
+	dh build
 	touch $@
 
 clean:
-	dh_testdir
-	dh_testroot
-	dh_clean build-stamp install-stamp
-	[ ! -f Build ] || $(PERL) Build --allow_mb_mismatch 1 distclean
+	dh $@
 
 install: install-stamp
 install-stamp: build-stamp
-	dh_testdir
-	dh_testroot
-	dh_clean -k
-	$(PERL) Build install destdir=$(TMP) create_packlist=0
+	dh install --before dh_installchangelogs
+	dh_installchangelogs RELEASE_NOTES
+	dh install --after dh_installchangelogs
 	touch $@
 
 binary-arch:
-# We have nothing to do here for an architecture-independent package
 
-binary-indep: build install
-	dh_testdir
-	dh_testroot
-	dh_installdocs RELEASE_NOTES
-	dh_installchangelogs Changes
-	dh_perl
-	dh_compress
-	dh_fixperms
-	dh_installdeb
-	dh_gencontrol
-	dh_md5sums
-	dh_builddeb
+binary-indep: install
+	dh $@
 
-binary: binary-indep binary-arch
-.PHONY: build clean binary-indep binary-arch binary install
+binary: binary-arch binary-indep
+
+.PHONY: binary binary-arch binary-indep install clean build

Modified: trunk/libdata-formvalidator-perl/lib/Data/FormValidator.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-formvalidator-perl/lib/Data/FormValidator.pm?rev=29230&op=diff
==============================================================================
--- trunk/libdata-formvalidator-perl/lib/Data/FormValidator.pm (original)
+++ trunk/libdata-formvalidator-perl/lib/Data/FormValidator.pm Sun Jan  4 12:49:54 2009
@@ -33,7 +33,7 @@
 
 use vars qw( $VERSION $AUTOLOAD @ISA @EXPORT_OK %EXPORT_TAGS );
 
-$VERSION = '4.61';
+$VERSION = '4.63';
 
 require Exporter;
 @ISA = qw(Exporter);
@@ -551,10 +551,11 @@
      qr/_name$/    => ['ucfirst'],
  },
 
-This is a hash reference where the keys are the regular expressions to
-use and the values are references to arrays of filters which will be
-applied to specific input fields. Used to apply filters to fields that
-match a regular expression. 
+'field_filter_regexp_map' is used to apply filters to fields that match a
+regular expression.  This is a hash reference where the keys are the regular
+expressions to use and the values are references to arrays of filters which
+will be applied to specific input fields. Just as with 'field_filters', you
+can you use a built-in filter or use a coderef to supply your own.
 
 =head2 constraint_methods
 
@@ -901,7 +902,7 @@
     return if $self->{profiles} and $self->{profiles_mtime} <= $mtime;
 
     $self->{profiles} = do $file;
-    die "Input profiles didn't return a hash ref\n"
+    die "Input profiles didn't return a hash ref: $@\n"
       unless ref $self->{profiles} eq "HASH";
 
     $self->{profiles_mtime} = $mtime;

Modified: trunk/libdata-formvalidator-perl/lib/Data/FormValidator/Constraints.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-formvalidator-perl/lib/Data/FormValidator/Constraints.pm?rev=29230&op=diff
==============================================================================
--- trunk/libdata-formvalidator-perl/lib/Data/FormValidator/Constraints.pm (original)
+++ trunk/libdata-formvalidator-perl/lib/Data/FormValidator/Constraints.pm Sun Jan  4 12:49:54 2009
@@ -23,7 +23,7 @@
 use strict;
 use vars qw/$AUTOLOAD @ISA @EXPORT_OK %EXPORT_TAGS $VERSION/;
 
-$VERSION = 4.60;
+$VERSION = 4.63;
 
 require Exporter;
 @ISA = qw(Exporter);
@@ -755,9 +755,7 @@
   # In your profile
   constraint_methods => {
     email 			 => email(),
-	prospective_date => coolness(
-		min => 40,
-		max => 60,
+	prospective_date => coolness( 40, 60,
 		{fields => [qw/personality smarts good_looks/]}
 	),
   }
@@ -778,6 +776,7 @@
 		# Name it to refer to in the 'msgs' system.
 		$dfv->name_this('coolness');
 
+        # value of 'prospective_date' parameter
 		my $val = $dfv->get_current_constraint_value();
 
 		# get other data to refer to
@@ -851,7 +850,7 @@
 
  my $data = $self->get_filtered_data;
 
-Returns the filtered data as a hashref, regardless of whether
+Returns the valid filtered data as a hashref, regardless of whether
 it started out as a CGI.pm compatible object. Multiple values are 
 expressed as array references. 
 

Modified: trunk/libdata-formvalidator-perl/lib/Data/FormValidator/Constraints/Dates.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-formvalidator-perl/lib/Data/FormValidator/Constraints/Dates.pm?rev=29230&op=diff
==============================================================================
--- trunk/libdata-formvalidator-perl/lib/Data/FormValidator/Constraints/Dates.pm (original)
+++ trunk/libdata-formvalidator-perl/lib/Data/FormValidator/Constraints/Dates.pm Sun Jan  4 12:49:54 2009
@@ -28,7 +28,7 @@
 	match_date_and_time
 );
 
-$VERSION = '4.60';
+$VERSION = '4.62';
 
 sub date_and_time {
 	my $fmt = shift;

Modified: trunk/libdata-formvalidator-perl/lib/Data/FormValidator/Constraints/Upload.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-formvalidator-perl/lib/Data/FormValidator/Constraints/Upload.pm?rev=29230&op=diff
==============================================================================
--- trunk/libdata-formvalidator-perl/lib/Data/FormValidator/Constraints/Upload.pm (original)
+++ trunk/libdata-formvalidator-perl/lib/Data/FormValidator/Constraints/Upload.pm Sun Jan  4 12:49:54 2009
@@ -28,7 +28,7 @@
 	image_min_dimensions
 );
 
-$VERSION = 4.60;
+$VERSION = 4.62;
 
 sub file_format {
 	my %params = @_;

Modified: trunk/libdata-formvalidator-perl/lib/Data/FormValidator/ConstraintsFactory.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-formvalidator-perl/lib/Data/FormValidator/ConstraintsFactory.pm?rev=29230&op=diff
==============================================================================
--- trunk/libdata-formvalidator-perl/lib/Data/FormValidator/ConstraintsFactory.pm (original)
+++ trunk/libdata-formvalidator-perl/lib/Data/FormValidator/ConstraintsFactory.pm Sun Jan  4 12:49:54 2009
@@ -37,7 +37,7 @@
 		    make_num_set_constraint( -1, ( 1 .. 10 ) ),
 		    make_set_constraint( 1, ( 20 .. 30 ) ),
 		  ),
-	province => make_word_set_constraint( "AB QC ON TN NU" ),
+	province => make_word_set_constraint( 1, "AB QC ON TN NU" ),
 	bid	 => make_range_constraint( 1, 1, 10 ),
     }
 
@@ -48,7 +48,7 @@
 BEGIN {
     require Exporter;
 
-    $VERSION = 1.6; 
+    $VERSION = 1.7; 
 
     @ISA = qw( Exporter );
 

Modified: trunk/libdata-formvalidator-perl/lib/Data/FormValidator/Filters.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-formvalidator-perl/lib/Data/FormValidator/Filters.pm?rev=29230&op=diff
==============================================================================
--- trunk/libdata-formvalidator-perl/lib/Data/FormValidator/Filters.pm (original)
+++ trunk/libdata-formvalidator-perl/lib/Data/FormValidator/Filters.pm Sun Jan  4 12:49:54 2009
@@ -13,7 +13,7 @@
 use strict;
 use vars qw/$AUTOLOAD @ISA @EXPORT_OK %EXPORT_TAGS $VERSION/;
 
-$VERSION = 4.60;
+$VERSION = 4.62;
 
 require Exporter;
 @ISA = qw(Exporter);

Modified: trunk/libdata-formvalidator-perl/lib/Data/FormValidator/Results.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-formvalidator-perl/lib/Data/FormValidator/Results.pm?rev=29230&op=diff
==============================================================================
--- trunk/libdata-formvalidator-perl/lib/Data/FormValidator/Results.pm (original)
+++ trunk/libdata-formvalidator-perl/lib/Data/FormValidator/Results.pm Sun Jan  4 12:49:54 2009
@@ -24,7 +24,7 @@
   'bool' => \&_bool_overload_based_on_success,
   fallback => 1;
 
-$VERSION = 4.60;
+$VERSION = 4.62;
 
 =pod
 

Modified: trunk/libdata-formvalidator-perl/t/dates.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-formvalidator-perl/t/dates.t?rev=29230&op=diff
==============================================================================
--- trunk/libdata-formvalidator-perl/t/dates.t (original)
+++ trunk/libdata-formvalidator-perl/t/dates.t Sun Jan  4 12:49:54 2009
@@ -1,6 +1,17 @@
 #!/usr/bin/perl -w
-use Test::More qw/no_plan/;
-BEGIN { use_ok('Data::FormValidator::Constraints::Dates') };
+use Test::More;
+
+eval { require Date::Calc; };
+
+if( $@ ) {
+    plan skip_all => 'Date::Calc required for date testing';
+}
+else {
+    plan 'no_plan';
+}
+
+require Data::FormValidator::Constraints::Dates;
+
 use strict;
 
 my $format = Data::FormValidator::Constraints::Dates::_prepare_date_format('MM/DD/YYYY hh?:mm:ss pp');

Modified: trunk/libdata-formvalidator-perl/t/dates_closure.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-formvalidator-perl/t/dates_closure.t?rev=29230&op=diff
==============================================================================
--- trunk/libdata-formvalidator-perl/t/dates_closure.t (original)
+++ trunk/libdata-formvalidator-perl/t/dates_closure.t Sun Jan  4 12:49:54 2009
@@ -1,8 +1,18 @@
 #!/usr/bin/perl -w
-use Test::More 'no_plan';
-BEGIN { 
-	use_ok('Data::FormValidator::Constraints::Dates') 
-};
+use Test::More;
+
+eval { require Date::Calc; };
+if( $@ ) {
+    plan skip_all => 'Date::Calc required for date testing';
+}
+else {
+    plan 'no_plan';
+}
+
+require Data::FormValidator::Constraints::Dates;
+
+use strict;
+
 use strict;
 
 my $format = Data::FormValidator::Constraints::Dates::_prepare_date_format('MM/DD/YYYY hh?:mm:ss pp');

Modified: trunk/libdata-formvalidator-perl/t/untaint.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-formvalidator-perl/t/untaint.t?rev=29230&op=diff
==============================================================================
--- trunk/libdata-formvalidator-perl/t/untaint.t (original)
+++ trunk/libdata-formvalidator-perl/t/untaint.t Sun Jan  4 12:49:54 2009
@@ -3,9 +3,11 @@
 $SIG{__WARN__} = \&carp;
 $SIG{__DIE__} = \&confess;
 
+use Config;
+
 my @args = ('-I./lib',
     ( (defined($ENV{PERL5LIB}) && length($ENV{PERL5LIB}))
-        ?(map { "-I$_" } split(/:/, $ENV{PERL5LIB}))
+        ?(map { "-I$_" } split(/$Config{path_sep}/, $ENV{PERL5LIB}))
         : ()
     ),
     '-T',




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