Changeset 27052 for gs2-extensions/parallel-building

Timestamp:

2013-03-12T12:18:56+13:00 (11 years ago)

Author:

jmt12

Message:

Turns out the Perl on Medusa doesn't support $^{V, so I've had to change this script to find other ways of extracting perls version number}

File:

• gs2-extensions/parallel-building/trunk/src/bin/script/perl-version.pl (modified) (1 diff)

gs2-extensions/parallel-building/trunk/src/bin/script/perl-version.pl

@@ -1 +1 @@
 #!/usr/bin/perl
 my $version_str = $^V;
-my ($version_number) = $version_str =~ /(\d+\.\d+\.\d+)/;
-print $version_number;
+if (defined $version_str && $version_str =~ /(\d+\.\d+\.\d+)/)
+{
+  print $1;
+  exit;
+}
+$version_str = $];
+if (defined $version_str && $version_str =~ /(\d+)\.(\d\d\d)(\d\d\d)/)
+{
+  printf("%d.%d.%d", $1, $2, $3);
+  exit;
+}
+print "unknown";
 exit;