X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=vms%2Fmyconfig.com;h=1429f86de825ad0da98cd494a63e8de1c1e7272a;hb=d925a710473da185a5589455ee8d26c4862a29ad;hp=923fbc5a3d88b470420d383a66668d90b0d12a9d;hpb=482b294c2001bd1c291b5e70975012f29ac95f24;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/vms/myconfig.com b/vms/myconfig.com
index 923fbc5..1429f86 100644
--- a/vms/myconfig.com
+++ b/vms/myconfig.com
@@ -120,11 +120,17 @@ $ endif
 $ open/read RATHER_LONG_CONFIG_FILE_HANDLE 'RATHER_LONG_FILENAME_SEARCH' 
 $read_patchlevel_h:
 $ read/end_of_file = patchlevel_h_Done RATHER_LONG_CONFIG_FILE_HANDLE  line
-$ if f$locate("PATCHLEVEL",line).ne.f$length(line)
+$ if f$locate("PERL_VERSION",line).ne.f$length(line)
 $   then
 $     line = f$edit(line,"TRIM,COMPRESS")
 $     $PATCHLEVEL = f$element(2," ",line)
-$     goto patchlevel_h_Done
+$     if f$type($SUBVERSION).nes."" then goto patchlevel_h_Done
+$ endif
+$ if f$locate("PERL_SUBVERSION",line).ne.f$length(line)
+$   then
+$     line = f$edit(line,"TRIM,COMPRESS")
+$     $SUBVERSION = f$element(2," ",line)
+$     if f$type($PATCHLEVEL).nes."" then goto patchlevel_h_Done
 $ endif
 $ goto read_patchlevel_h
 
@@ -132,7 +138,7 @@ $patchlevel_h_Done:
 $ close RATHER_LONG_CONFIG_FILE_HANDLE 
 $ if $PATCHLEVEL.eqs.""
 $   then
-$     echo "warning: PATCHLEVEL was not found in ''RATHER_LONG_FILENAME_TO_FIND':" 
+$     echo "warning: PERL_VERSION was not found in ''RATHER_LONG_FILENAME_TO_FIND':" 
 $ endif
 
 $look_for_genconfig_pl:
@@ -291,11 +297,11 @@ $ endif
 $spit_it_out:
 $! $spitshell = ECHO !<<!GROK!THIS! 
 $ ECHO " "
-$ ECHO "Summary of my ''$package' (patchlevel ''$PATCHLEVEL') configuration:"
+$ ECHO "Summary of my ''$package' (version ''$PATCHLEVEL' subversion ''$SUBVERSION') configuration:"
 $ ECHO "  Platform:"
-$ ECHO "    osname=''$osname', osver=''$osvers', archname=''$archname'"
+$ ECHO "    osname=''$osname', osvers=''$osvers', archname=''$archname'"
 $ ECHO "     uname=''$myuname'"                             !->d_has_uname?
-$ ECHO "     hint=''$hint'"                                 !->hintfile?
+$ ECHO "     hint=''$hint' d_sigaction='undef'"             !->hintfile?
 $ ECHO "     static exts=''$staticexts'"                    ! added for VMS
 $ ECHO "   Compiler:"
 $ ECHO "     cc=''$cc', optimize=''$optimize', ld=''$ld'"