Changeset 17118 for gsdl/trunk/bin

Timestamp:

2008-09-01T13:05:47+12:00 (16 years ago)

Author:

kjdon

Message:

make_absolute didn't work on windows. hopefully it now does

File:

• gsdl/trunk/bin/script/buildcol.pl (modified) (1 diff)

gsdl/trunk/bin/script/buildcol.pl

@@ -734 +734 @@
   {
     my ($base_dir, $dir) = @_;
-    $dir = $base_dir . "/$dir" if ($dir =~ m#^[^/]#);
+    $dir =~ s/[\\\/]+/\//g;
+    $dir = $base_dir . "/$dir" unless ($dir =~ m#^(\w:)?/#); 
     $dir =~ s|^/tmp_mnt||;
     1 while($dir =~ s|/[^/]*/\.\./|/|g);