VladPolskiy/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2025-07-23 00:30:33 +00:00
Code Issues Packages Projects Releases Wiki Activity

Version semantics changed in perl 5.10

Browse Source
This commit is contained in:
Jamie Cameron
2008-08-04 23:27:20 +00:00
parent e2536f52b1
commit c1c889af0a
2 changed files with 14 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
cpan/cpan-lib.pl
View File

@ -386,5 +386,18 @@ if (&foreign_exists("mount")) {
return 0;
}
# get_nice_perl_version()
# Returns the Perl version is human-readable format
sub get_nice_perl_version
{
local $ver = $^V;
if ($ver =~ /^v/) {
return $ver;
}
else {
return join(".", map { ord($_) } split(//, $^V));
}
}
1;

2
cpan/index.cgi
View File

@ -3,7 +3,7 @@
# Display installed perl modules and a form for installing new ones
require './cpan-lib.pl';
$ver = join(".", map { ord($_) } split(//, $^V));
$ver = &get_nice_perl_version();
&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1, 0,
undef, undef, undef, &text('index_pversion', $ver));
&ReadParse();