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

Timestamp:

2009-02-01T14:36:22+13:00 (15 years ago)

Author:

davidb

Message:

Modifications for incremental building to support files that need to be deleted

File:

• gsdl/trunk/perllib/util.pm (modified) (3 diffs)

gsdl/trunk/perllib/util.pm

@@ -768 +768 @@
 }
 
+sub filename_is_absolute
+{
+    my ($filename) = @_;
+
+    if ($ENV{'GSDLOS'} =~ /^windows$/i) {
+    return ($filename =~ m/^(\w:)?\\/);
+    }
+    else {
+    return ($filename =~ m/^\//);
+    }
+}
+
+
 ## @method make_absolute()
 #
@@ -786 +799 @@
     
     my ($base_dir, $dir) = @_;
-    print STDERR "dir = $dir\n";
+###    print STDERR "dir = $dir\n";
     $dir =~ s/[\\\/]+/\//g;
     $dir = $base_dir . "/$dir" unless ($dir =~ m|^(\w:)?/|); 
@@ -793 +806 @@
     $dir =~ s|/[.][.]?/|/|g;
     $dir =~ tr|/|/|s;
-    print STDERR "dir = $dir\n";
+###    print STDERR "dir = $dir\n";
     
     return $dir;