Version semantics changed in perl 5.10

diff --git a/cpan/cpan-lib.pl b/cpan/cpan-lib.pl
index 48bfc56..08bf4f0 100644 (file)
--- a/cpan/cpan-lib.pl
+++ b/cpan/cpan-lib.pl
@@ -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;
 

diff --git a/cpan/index.cgi b/cpan/index.cgi
index 08cbb7c..e7eeca8 100755 (executable)
--- a/cpan/index.cgi
+++ b/cpan/index.cgi
@@ -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();