print CF " * Created using the configure script, conf.pl\n";
print CF " */\n";
print CF "\n";
-
+ print CF "global \$version;\n";
+
if ($print_config_version) {
print CF "\$config_version = '$print_config_version';\n";
}
# If the path is absolute, don't bother.
return "\'" . $old_path . "\'" if ( $old_path eq '');
return "\'" . $old_path . "\'" if ( $old_path =~ /^\// );
+ return "\'" . $old_path . "\'" if ( $old_path =~ /^http/ );
return $old_path if ( $old_path =~ /^\$/);
return $old_path if ( $old_path =~ /^SM_PATH/ );
-
+
# For relative paths, split on '../'
@rel_path = split(/\.\.\//, $old_path);
return $old_path if ( $old_path eq '');
return $old_path if ( $old_path =~ /^\$/ );
return $old_path if ( $old_path =~ /^\// );
+ return $old_path if ( $old_path =~ /^http/ );
return $old_path if ( $old_path =~ /^\.\./ );
if ( $old_path =~ /^SM_PATH/ ) {