r8390 - in /trunk/libdata-formvalidator-perl: Changes META.yml debian/changelog lib/Data/FormValidator.pm t/untaint.t

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

Author: gregoa-guest
Date: Sat Oct 20 15:25:46 2007
New Revision: 8390

URL: http://svn.debian.org/wsvn/?sc=1&rev=8390
Log:
New upstream release.

Modified:
    trunk/libdata-formvalidator-perl/Changes
    trunk/libdata-formvalidator-perl/META.yml
    trunk/libdata-formvalidator-perl/debian/changelog
    trunk/libdata-formvalidator-perl/lib/Data/FormValidator.pm
    trunk/libdata-formvalidator-perl/t/untaint.t

Modified: trunk/libdata-formvalidator-perl/Changes
URL: http://svn.debian.org/wsvn/trunk/libdata-formvalidator-perl/Changes?rev=8390&op=diff
==============================================================================
--- trunk/libdata-formvalidator-perl/Changes (original)
+++ trunk/libdata-formvalidator-perl/Changes Sat Oct 20 15:25: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: trunk/libdata-formvalidator-perl/META.yml
URL: http://svn.debian.org/wsvn/trunk/libdata-formvalidator-perl/META.yml?rev=8390&op=diff
==============================================================================
--- trunk/libdata-formvalidator-perl/META.yml (original)
+++ trunk/libdata-formvalidator-perl/META.yml Sat Oct 20 15:25: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: trunk/libdata-formvalidator-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libdata-formvalidator-perl/debian/changelog?rev=8390&op=diff
==============================================================================
--- trunk/libdata-formvalidator-perl/debian/changelog (original)
+++ trunk/libdata-formvalidator-perl/debian/changelog Sat Oct 20 15:25:46 2007
@@ -1,10 +1,11 @@
-libdata-formvalidator-perl (4.51-2) UNRELEASED; urgency=low
+libdata-formvalidator-perl (4.52-1) UNRELEASED; urgency=low
 
+  * New upstream release.
   * debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser
     field (source stanza); Homepage field (source stanza). Removed: XS-
     Vcs-Svn fields.
 
- -- gregor herrmann <gregor+debian at comodo.priv.at>  Tue, 09 Oct 2007 22:28:32 +0200
+ -- gregor herrmann <gregor+debian at comodo.priv.at>  Sat, 20 Oct 2007 17:24:35 +0200
 
 libdata-formvalidator-perl (4.51-1) unstable; urgency=low
 

Modified: trunk/libdata-formvalidator-perl/lib/Data/FormValidator.pm
URL: http://svn.debian.org/wsvn/trunk/libdata-formvalidator-perl/lib/Data/FormValidator.pm?rev=8390&op=diff
==============================================================================
--- trunk/libdata-formvalidator-perl/lib/Data/FormValidator.pm (original)
+++ trunk/libdata-formvalidator-perl/lib/Data/FormValidator.pm Sat Oct 20 15:25: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: trunk/libdata-formvalidator-perl/t/untaint.t
URL: http://svn.debian.org/wsvn/trunk/libdata-formvalidator-perl/t/untaint.t?rev=8390&op=diff
==============================================================================
--- trunk/libdata-formvalidator-perl/t/untaint.t (original)
+++ trunk/libdata-formvalidator-perl/t/untaint.t Sat Oct 20 15:25: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);