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

Timestamp:

2001-10-12T11:05:43+13:00 (23 years ago)

Author:

sjboddie

Message:

Got ZIPPlug working under under windows

File:

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

trunk/gsdl/perllib/util.pm

@@ -475 +475 @@
 
 sub get_tmp_filename {
-    my $tmpdir = "$ENV{'GSDLHOME'}/tmp";
+    my $tmpdir = filename_cat($ENV{'GSDLHOME'}, "tmp");
     &mk_all_dir ($tmpdir) unless -e $tmpdir;
 
     my $count = 1000;
     my $rand = int(rand $count);
-    while (-e "$tmpdir/F$rand") {
+    while (-e &filename_cat($tmpdir, "F$rand")) {
     $rand = int(rand $count);
     $count++;
     }
 
-    return "$tmpdir/F$rand";
+    return filename_cat($tmpdir, "F$rand");
 }