Changeset 27052

Show
Ignore:
Timestamp:
12.03.2013 12:18:56 (7 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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gs2-extensions/parallel-building/trunk/src/bin/script/perl-version.pl

    r27040 r27052  
    11#!/usr/bin/perl 
    22my $version_str = $^V; 
    3 my ($version_number) = $version_str =~ /(\d+\.\d+\.\d+)/; 
    4 print $version_number; 
     3if (defined $version_str && $version_str =~ /(\d+\.\d+\.\d+)/) 
     4{ 
     5  print $1; 
     6  exit; 
     7} 
     8$version_str = $]; 
     9if (defined $version_str && $version_str =~ /(\d+)\.(\d\d\d)(\d\d\d)/) 
     10{ 
     11  printf("%d.%d.%d", $1, $2, $3); 
     12  exit; 
     13} 
     14print "unknown"; 
    515exit;