Change 31349 by [EMAIL PROTECTED] on 2007/06/07 13:23:07
Subject: Re: [PATCH] Update File-Path to 2.00
From: David Landgren <[EMAIL PROTECTED]>
Date: Thu, 07 Jun 2007 14:02:36 +0200
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/lib/File/Path.pm#48 edit
Differences ...
==== //depot/perl/lib/File/Path.pm#48 (text) ====
Index: perl/lib/File/Path.pm
--- perl/lib/File/Path.pm#47~31345~ 2007-06-07 01:01:18.000000000 -0700
+++ perl/lib/File/Path.pm 2007-06-07 06:23:07.000000000 -0700
@@ -6,8 +6,8 @@
=head1 VERSION
-This document describes version 2.00_02 of File::Path, released
-2007-06-06.
+This document describes version 2.00_03 of File::Path, released
+2007-06-07.
=head1 SYNOPSIS
@@ -371,7 +371,7 @@
use Exporter ();
use vars qw($VERSION @ISA @EXPORT);
-$VERSION = '2.00_02';
+$VERSION = '2.00_03';
@ISA = qw(Exporter);
@EXPORT = qw(mkpath rmtree);
@@ -396,8 +396,11 @@
sub mkpath {
my $new_style = (
UNIVERSAL::isa($_[0],'ARRAY')
- or (@_ == 2 and $_[1] =~ /\A\d+\z/)
- or (@_ == 3 and $_[1] =~ /\A\d+\z/ and $_[2] =~ /\A\d+\z/)
+ or (@_ == 2 and (defined $_[1] ? $_[1] =~ /\A\d+\z/ : 1))
+ or (@_ == 3
+ and (defined $_[1] ? $_[1] =~ /\A\d+\z/ : 1)
+ and (defined $_[2] ? $_[2] =~ /\A\d+\z/ : 1)
+ )
) ? 0 : 1;
my $arg;
@@ -470,8 +473,11 @@
sub rmtree {
my $new_style = (
UNIVERSAL::isa($_[0],'ARRAY')
- or (@_ == 2 and $_[1] =~ /\A\d+\z/)
- or (@_ == 3 and $_[1] =~ /\A\d+\z/ and $_[2] =~ /\A\d+\z/)
+ or (@_ == 2 and (defined $_[1] ? $_[1] =~ /\A\d+\z/ : 1))
+ or (@_ == 3
+ and (defined $_[1] ? $_[1] =~ /\A\d+\z/ : 1)
+ and (defined $_[2] ? $_[2] =~ /\A\d+\z/ : 1)
+ )
) ? 0 : 1;
my $arg;
End of Patch.
