Changeset 15582

Timestamp:

2008-05-19T17:38:54+12:00 (16 years ago)

Author:

ak19

Message:

Dr Bainbridge added code to make sure that on Windows other perl programs are launched with perl -S flag

File:

• gsdl/trunk/perllib/g2futil.pm (modified) (2 diffs)

gsdl/trunk/perllib/g2futil.pm

@@ -5 +5 @@
 {
     if (!defined $ENV{'FEDORA_HOME'}) {
-    print STDERR "Environment variable FEDORA_HOME not set.\n";
+    print STDERR "ERROR: Environment variable FEDORA_HOME not set.\n";
     exit 1;
     }
@@ -56 +56 @@
     $prog .= $script_ext;
     }
+    if (($prog =~ m/.pl$/i) && ($ENV{'GSDLOS'} =~ m/^windows/)) {
+    $prog ="perl -S $prog";
+    }
+ 
 
     my $cmd = "$prog $arguments";