|
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
|
| Rev | Line | |
|---|
| [27040] | 1 | #!/usr/bin/perl
|
|---|
| 2 | my $version_str = $^V;
|
|---|
| [27052] | 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";
|
|---|
| [27040] | 15 | exit;
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
