[svn:parrot] r45017 - trunk/t/codingstd
Util at svn.parrot.org
Util at svn.parrot.org
Thu Mar 18 18:00:35 UTC 2010
Author: Util
Date: Thu Mar 18 18:00:34 2010
New Revision: 45017
URL: https://trac.parrot.org/parrot/changeset/45017
Log:
[t] pdd_format.t - Include pdd_template.pod when scanning
Modified:
trunk/t/codingstd/pdd_format.t
Modified: trunk/t/codingstd/pdd_format.t
==============================================================================
--- trunk/t/codingstd/pdd_format.t Thu Mar 18 17:54:49 2010 (r45016)
+++ trunk/t/codingstd/pdd_format.t Thu Mar 18 18:00:34 2010 (r45017)
@@ -16,11 +16,11 @@
my @pddfiles = ();
foreach my $dir (@pdddirs) {
- opendir my $DIRH, $dir
- or croak "Unable to open directory handle: $!";
- my @pdds = map { qq|$dir/$_| } grep { m/^pdd\d{2,}_.*\.pod$/ }
- readdir $DIRH;
- closedir $DIRH or croak "Unable to close directory handle: $!";
+ die "Directory '$dir' is not found, or not a directory" if not -d $dir;
+
+ my @pdds = glob "$dir/pdd*.pod"
+ or warn "No PDD files found in directory '$dir'";
+
push @pddfiles, @pdds;
}
More information about the parrot-commits
mailing list