|
Last change
on this file since 27119 was 27119, checked in by jmt12, 11 years ago |
|
Merging version finder from Medusa with the one lurking on Karearea
|
-
Property svn:executable
set to
*
|
|
File size:
311 bytes
|
| Rev | Line | |
|---|
| [27040] | 1 | #!/usr/bin/perl
|
|---|
| [27119] | 2 | use strict;
|
|---|
| 3 | use warnings;
|
|---|
| [27040] | 4 | my $version_str = $^V;
|
|---|
| [27052] | 5 | if (defined $version_str && $version_str =~ /(\d+\.\d+\.\d+)/)
|
|---|
| 6 | {
|
|---|
| 7 | print $1;
|
|---|
| 8 | exit;
|
|---|
| 9 | }
|
|---|
| 10 | $version_str = $];
|
|---|
| 11 | if (defined $version_str && $version_str =~ /(\d+)\.(\d\d\d)(\d\d\d)/)
|
|---|
| 12 | {
|
|---|
| 13 | printf("%d.%d.%d", $1, $2, $3);
|
|---|
| 14 | exit;
|
|---|
| 15 | }
|
|---|
| 16 | print "unknown";
|
|---|
| [27040] | 17 | exit;
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
