Changeset 7507

Timestamp:

2004-05-31T14:50:25+12:00 (20 years ago)

Author:

kjdon

Message:

filename_cat now checks for an empty first path - so don't get an erroneous / on the front anymore

File:

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

trunk/gsdl/perllib/util.pm

@@ -491 +491 @@
 
 sub filename_cat {
+    my $first_file = shift(@_);
     my (@filenames) = @_;
+    #check for non-empty first filename
+    if ($first_file =~ /\w/) {
+    unshift(@filenames, $first_file);
+    }
+
     my $filename = join("/", @filenames);