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
|
Line | |
---|
1 | #!/usr/bin/perl
|
---|
2 | use strict;
|
---|
3 | use warnings;
|
---|
4 | my $version_str = $^V;
|
---|
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";
|
---|
17 | exit;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.