Changeset 10146

Timestamp:

2005-06-17T15:30:29+12:00 (19 years ago)

Author:

mdewsnip

Message:

Fixed filename_cat so if the first argument is entirely non-ASCII (eg. UTF-8) it won't be ignored.

File:

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

trunk/gsdl/perllib/util.pm

@@ -493 +493 @@
     my $first_file = shift(@_);
     my (@filenames) = @_;
-    #check for non-empty first filename
-    if ($first_file =~ /\w/) {
+
+    # Check for empty first filename
+    if ($first_file =~ /\S/) {
     unshift(@filenames, $first_file);
     }