[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