r8388 - in /branches/upstream/libdata-formvalidator-perl/current: Changes META.yml lib/Data/FormValidator.pm t/untaint.t

[gregoa-guest at users.alioth.debian.org]

Author: gregoa-guest
Date: Sat Oct 20 15:23:46 2007
New Revision: 8388

URL: http://svn.debian.org/wsvn/?sc=1&rev=8388
Log:
[svn-upgrade] Integrating new upstream version, libdata-formvalidator-perl (4.52)

Modified:
    branches/upstream/libdata-formvalidator-perl/current/Changes
    branches/upstream/libdata-formvalidator-perl/current/META.yml
    branches/upstream/libdata-formvalidator-perl/current/lib/Data/FormValidator.pm
    branches/upstream/libdata-formvalidator-perl/current/t/untaint.t

Modified: branches/upstream/libdata-formvalidator-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libdata-formvalidator-perl/current/Changes?rev=8388&op=diff
==============================================================================
--- branches/upstream/libdata-formvalidator-perl/current/Changes (original)
+++ branches/upstream/libdata-formvalidator-perl/current/Changes Sat Oct 20 15:23:46 2007
@@ -1,3 +1,9 @@
+4.52 Fri Oct 19 15:39:14 EDT 2007
+    No code changes. 
+
+    [INTERNALS]
+    - Fix PERL5LIB issue with untaint.t, Thanks to Matt Trout and others [RT#30126]
+
 4.51 Fri Jul 13 23:31:43 EDT 2007
     [BUG FIXES]
     - Quit assuming that because the first element of an array is undef, the

Modified: branches/upstream/libdata-formvalidator-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libdata-formvalidator-perl/current/META.yml?rev=8388&op=diff
==============================================================================
--- branches/upstream/libdata-formvalidator-perl/current/META.yml (original)
+++ branches/upstream/libdata-formvalidator-perl/current/META.yml Sat Oct 20 15:23:46 2007
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name: Data-FormValidator
-version: 4.51
+version: 4.52
 author:
   - Mark Stosberg <mark at summersault.com>
 abstract: |-
@@ -20,7 +20,7 @@
 provides:
   Data::FormValidator:
     file: lib/Data/FormValidator.pm
-    version: 4.51
+    version: 4.52
   Data::FormValidator::Constraints:
     file: lib/Data/FormValidator/Constraints.pm
     version: 4.51

Modified: branches/upstream/libdata-formvalidator-perl/current/lib/Data/FormValidator.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libdata-formvalidator-perl/current/lib/Data/FormValidator.pm?rev=8388&op=diff
==============================================================================
--- branches/upstream/libdata-formvalidator-perl/current/lib/Data/FormValidator.pm (original)
+++ branches/upstream/libdata-formvalidator-perl/current/lib/Data/FormValidator.pm Sat Oct 20 15:23:46 2007
@@ -33,7 +33,7 @@
 
 use vars qw( $VERSION $AUTOLOAD @ISA @EXPORT_OK %EXPORT_TAGS );
 
-$VERSION = '4.51';
+$VERSION = '4.52';
 
 require Exporter;
 @ISA = qw(Exporter);

Modified: branches/upstream/libdata-formvalidator-perl/current/t/untaint.t
URL: http://svn.debian.org/wsvn/branches/upstream/libdata-formvalidator-perl/current/t/untaint.t?rev=8388&op=diff
==============================================================================
--- branches/upstream/libdata-formvalidator-perl/current/t/untaint.t (original)
+++ branches/upstream/libdata-formvalidator-perl/current/t/untaint.t Sat Oct 20 15:23:46 2007
@@ -3,5 +3,15 @@
 $SIG{__WARN__} = \&carp;
 $SIG{__DIE__} = \&confess;
 
-# We use $^X to make it easier to test with different versions of Perl. -mls
-system($^X.' -I./lib -T ./t/untaint.pl Jim Beam jim at foo.bar james at bar.foo 132.10.10.2 Monroe Rufus 12345 oops 0');
+my @args = ('-I./lib',
+    ( (defined($ENV{PERL5LIB}) && length($ENV{PERL5LIB}))
+        ?(map { "-I$_" } split(/:/, $ENV{PERL5LIB}))
+        : ()
+    ),
+    '-T',
+    './t/untaint.pl',
+    qw(Jim Beam jim at foo.bar james at bar.foo 132.10.10.2 Monroe Rufus 12345 oops 0)
+);
+
+# We use $^X to make it easier to test with different versions of Perl. 
+system($^X, @args);