Skip Menu |

This queue is for tickets about the File-Path-Tiny CPAN distribution.

Report information
The Basics
Id: 75688
Status: resolved
Priority: 0/
Queue: File-Path-Tiny

People
Owner: Nobody in particular
Requestors: TODDR [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 0.1
Fixed in: (no value)



Subject: using deprecated for qw() in 00.load.t
on line 17, you need to wrap the qw with parentesis as of 5.14 diff --git a/t/00.load.t b/t/00.load.t index 11aa63b..9324d70 100644 --- a/t/00.load.t +++ b/t/00.load.t @@ -10,11 +10,11 @@ diag( "Testing File::Path::Tiny $File::Path::Tiny::VERSION" ); # cleanup from last time -for my $path qw( +for my $path (qw( foo/bar/mode foo/bar/mode2 foo/bar/mode3 foo/bar/mode_mkdir foo/bar/mode_mkdir2 foo/bar/dir foo/bar/file foo/bar foo -) { +)) { if (!-l $path && -d $path) { rmdir $path; }
Just uploaded v0.2 to CPAN w/ this addressed, thanks! On Sun Mar 11 06:18:55 2012, TODDR wrote: Show quoted text
> on line 17, you need to wrap the qw with parentesis as of 5.14 > > diff --git a/t/00.load.t b/t/00.load.t > index 11aa63b..9324d70 100644 > --- a/t/00.load.t > +++ b/t/00.load.t > @@ -10,11 +10,11 @@ diag( "Testing File::Path::Tiny > $File::Path::Tiny::VERSION" ); > > # cleanup from last time > > -for my $path qw( > +for my $path (qw( > foo/bar/mode foo/bar/mode2 foo/bar/mode3 > foo/bar/mode_mkdir foo/bar/mode_mkdir2 foo/bar/dir > foo/bar/file foo/bar foo > -) { > +)) { > if (!-l $path && -d $path) { > rmdir $path; > }