Changeset 10046 for trunk/gsdl/perllib/util.pm

Timestamp:

2005-06-10T16:44:04+12:00 (19 years ago)

Author:

mdewsnip

Message:

Fixed a typo that unfortunately causes errors when you try to use the function.

File:

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

trunk/gsdl/perllib/util.pm

@@ -37 +37 @@
     # make sure the files we want to delete exist 
     # and are regular files
-    foreach my$file (@files) {
+    foreach my $file (@files) {
     if (!-e $file) {
         print STDERR "util::rm $file does not exist\n";