Changeset 7688

Timestamp:

2004-07-01T16:17:12+12:00 (20 years ago)

Author:

mdewsnip

Message:

Fixed a small bug in the code I just added.

File:

• trunk/gsdl/perllib/plugins/RecPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/RecPlug.pm

@@ -240 +240 @@
     # Re-order the files in the list so any directories ending with .all are moved to the end
     for ($i = scalar(@dir) - 1; $i >= 0; $i--) {
-    if (-d $dir[$i] && $dir[$i] =~ /\.all$/) {
+    if (-d &util::filename_cat($dirname, $dir[$i]) && $dir[$i] =~ /\.all$/) {
         push(@dir, splice(@dir, $i, 1));
     }