Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
11 lines (8 sloc) 253 Bytes
use strict;
use warnings;
use Config;
my $versiononly = $Config::Config{versiononly};
my $startperl = $Config::Config{startperl};
my $version = sprintf("%vd",$^V);
print "This is versioned\n"
if $versiononly and $startperl =~ /\Q$version\E$/;
Something went wrong with that request. Please try again.