Changeset 136 for trunk/gsdl/perllib/plugins/RecPlug.pm

Timestamp:

1999-02-02T22:59:55+13:00 (25 years ago)

Author:

rjmcnab

Message:

Fixed small bug.

File:

• trunk/gsdl/perllib/plugins/RecPlug.pm (modified) (3 diffs)

trunk/gsdl/perllib/plugins/RecPlug.pm

@@ -6 +6 @@
 use BasPlug;
 use plugin;
+use util;
 
 
@@ -37 +38 @@
 
     # see if this is a directory
-    if (-d "$base_dir$file") {
+    $dirname = &util::filename_cat ($base_dir, $file);
+    if (-d $dirname) {
 
     # read all the files in the directory
-    opendir (DIR, "$base_dir$file") ||
-        die "ERROR - couldn't read directory $base_dir$file\n";
+    opendir (DIR, $dirname) ||
+        die "ERROR - couldn't read directory $dirname\n";
     @dir = readdir (DIR);
     closedir (DIR);
@@ -49 +51 @@
         if ($subfile !~ /^\.\.?$/) {
         # note: metadata is not carried on to the next level
-        my $tmp = "$file/$subfile";
-        $tmp =~ s/^[\\\/]+|[\\\/]+$//g; # remove extra slashes
-        &plugin::read ($pluginfo, $base_dir, $tmp, {}, $processor);
+        &plugin::read ($pluginfo, $base_dir, &util::filename_cat($file, $subfile),
+                   {}, $processor);
         }
     }