--- packaging/source-trees/gt2-cvs/gram/jobmanager/setup/pbs/pbs.in	Fri Mar 28 00:00:31 2003
+++ globus_2_4_3_adv2003_fix892_fix956_plus/gram/jobmanager/setup/pbs/pbs.in	Sun Jan  4 04:55:44 2004
@@ -233,7 +233,11 @@
 	    $library_vars{$tuple->[0]} = 1;
 	}
 
-        push(@new_env, $tuple->[0] . '="' . $tuple->[1] . '"');
+        # Hack to unset GLOBUS_TCP_PORT_RANGE, because it may contain a comma,
+        # which cannot be handled by PBS in an environment line.  EDG bug 1208.
+
+        push(@new_env, $tuple->[0] . "=" . '"' . $tuple->[1] . '"')
+  	    unless $tuple->[0] =~ /^GLOBUS_(TCP|UDP)_PORT_RANGE$/;
 
 	$tuple->[0] =~ s/\\/\\\\/g;
 	$tuple->[0] =~ s/\$/\\\$/g;