perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/t/lib/TestCommon Utils.pm
Date Tue, 19 Oct 2004 02:48:40 GMT
stas        2004/10/18 19:48:40

  Modified:    t/lib/TestCommon Utils.pm
  Log:
  perl 5.6.0 still wants at least one char to trigger taint protections
  
  Revision  Changes    Path
  1.5       +5 -3      modperl-2.0/t/lib/TestCommon/Utils.pm
  
  Index: Utils.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/lib/TestCommon/Utils.pm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -u -r1.4 -r1.5
  --- Utils.pm	18 Oct 2004 23:21:07 -0000	1.4
  +++ Utils.pm	19 Oct 2004 02:48:39 -0000	1.5
  @@ -5,11 +5,13 @@
   
   BEGIN {
       # perl 5.8.0 (only) croaks on eval {} block at compile time when
  -    # it thinks the application is setgid. workaround: that's why we
  -    # need to shutdown compile time errors for this function
  +    # it thinks the application is setgid. workaround: shutdown
  +    # compile time errors for this function
       local $SIG{__DIE__} = sub { };
  +    # perl 5.6.x only triggers taint protection on strings which are
  +    # at least one char long
       sub is_tainted {
  -        return ! eval { eval join '', map { substr $_, 0, 0 } @_; 1};
  +        return ! eval { eval join '', '#', map substr($_, 0, 0), @_; 1};
       }
   }
   
  
  
  

Mime
View raw message