Revision history for Perl distribution PathTools.
+3.68
+- avoid warning from pre-5.8 code for detecting tainted values
+- make taint.t detect that a pre-5.8 Perl supports tainting
+
3.67 - Mon Feb 27 09:33:04 EST 2017
- Add security usage note to File::Spec::no_upwards
use Exporter;
use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION);
-$VERSION = '3.67';
+$VERSION = '3.68';
my $xs_version = $VERSION;
$VERSION =~ tr/_//d;
use strict;
use vars qw(@ISA $VERSION);
-$VERSION = '3.67';
+$VERSION = '3.68';
$VERSION =~ tr/_//d;
my %module = (MacOS => 'Mac',
use vars qw(@ISA $VERSION);
require File::Spec::Unix;
-$VERSION = '3.67';
+$VERSION = '3.68';
$VERSION =~ tr/_//d;
@ISA = qw(File::Spec::Unix);
use vars qw(@ISA $VERSION);
require File::Spec::Unix;
-$VERSION = '3.67';
+$VERSION = '3.68';
$VERSION =~ tr/_//d;
@ISA = qw(File::Spec::Unix);
use strict;
use vars qw($VERSION @ISA);
-$VERSION = '3.67';
+$VERSION = '3.68';
$VERSION =~ tr/_//d;
require File::Spec::Unix;
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION);
-$VERSION = '3.67';
+$VERSION = '3.68';
$VERSION =~ tr/_//d;
require Exporter;
use vars qw(@ISA $VERSION);
require File::Spec::Unix;
-$VERSION = '3.67';
+$VERSION = '3.68';
$VERSION =~ tr/_//d;
@ISA = qw(File::Spec::Unix);
use vars qw(@ISA $VERSION);
require File::Spec::Unix;
-$VERSION = '3.67';
+$VERSION = '3.68';
$VERSION =~ tr/_//d;
@ISA = qw(File::Spec::Unix);
use strict;
use vars qw($VERSION);
-$VERSION = '3.67';
+$VERSION = '3.68';
my $xs_version = $VERSION;
$VERSION =~ tr/_//d;
@dirlist = grep { ! Scalar::Util::tainted($_) } @dirlist;
}
elsif ($] < 5.007) { # No ${^TAINT} before 5.8
- @dirlist = grep { eval { eval('1'.substr $_,0,0) } } @dirlist;
+ @dirlist = grep { !defined($_) || eval { eval('1'.substr $_,0,0) } }
+ @dirlist;
}
foreach (@dirlist) {
use vars qw(@ISA $VERSION);
require File::Spec::Unix;
-$VERSION = '3.67';
+$VERSION = '3.68';
$VERSION =~ tr/_//d;
@ISA = qw(File::Spec::Unix);
use vars qw(@ISA $VERSION);
require File::Spec::Unix;
-$VERSION = '3.67';
+$VERSION = '3.68';
$VERSION =~ tr/_//d;
@ISA = qw(File::Spec::Unix);
use Test::More;
BEGIN {
plan(
- ${^TAINT}
+ !eval { eval("1".substr($^X,0,0)) }
? (tests => 21)
: (skip_all => "A perl without taint support")
);