Make the "uninit variable" warning to say "concat or string"

[p5sagit/p5-mst-13.2.git] / installman

diff --git a/installman b/installman
index cf5c45d..c9fb0fe 100755 (executable)
--- a/installman
+++ b/installman
@@ -12,9 +12,9 @@ require Cwd;
 
 $ENV{SHELL} = 'sh' if $^O eq 'os2';
 
-$ver = $];
-$release = substr($ver,0,3);   # Not used presently.
-$patchlevel = substr($ver,3,2);
+$ver = $Config{version};
+$release = substr($],0,3);   # Not used presently.
+$patchlevel = substr($],3,2);
 die "Patchlevel of perl ($patchlevel)",
     "and patchlevel of config.sh ($Config{'PERL_VERSION'}) don't match\n"
        if $patchlevel != $Config{'PERL_VERSION'};