18 lines
337 B
Perl
Executable File
18 lines
337 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
#
|
|
|
|
use strict;
|
|
use File::Spec;
|
|
|
|
local $/ = undef;
|
|
my $file = File::Spec->catfile($ENV{'CCM_SCRIPTS_HOME'},'bin',"extract-version-5x.pl");
|
|
if (-f $file) {
|
|
open (IN, $file) or die "could not open $file";
|
|
my $contents = <IN>;
|
|
close IN;
|
|
eval $contents;
|
|
exit;
|
|
} else {
|
|
die "$file does not exist";
|
|
}
|