Last change
on this file since 27052 was 27052, checked in by jmt12, 11 years ago |
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
|
-
Property svn:executable
set to
*
|
File size:
285 bytes
|
Line | |
---|
1 | #!/usr/bin/perl
|
---|
2 | my $version_str = $^V;
|
---|
3 | if (defined $version_str && $version_str =~ /(\d+\.\d+\.\d+)/)
|
---|
4 | {
|
---|
5 | print $1;
|
---|
6 | exit;
|
---|
7 | }
|
---|
8 | $version_str = $];
|
---|
9 | if (defined $version_str && $version_str =~ /(\d+)\.(\d\d\d)(\d\d\d)/)
|
---|
10 | {
|
---|
11 | printf("%d.%d.%d", $1, $2, $3);
|
---|
12 | exit;
|
---|
13 | }
|
---|
14 | print "unknown";
|
---|
15 | exit;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.