From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 12 Jul 2001 03:40:04 +0000 (+0000)
Subject: Metaconfig unit change for #11286.
X-Git-Tag: 5.26.1~702
X-Git-Url: https://perl5.git.perl.org/metaconfig.git/commitdiff_plain/930100cef84dcf48c4a29346f07f073bc4a679cc

Metaconfig unit change for #11286.

p4raw-id: //depot/metaconfig@11287
---

diff --git a/U/perl/patchlevel.U b/U/perl/patchlevel.U
index ae7aac1..7d58df1 100644
--- a/U/perl/patchlevel.U
+++ b/U/perl/patchlevel.U
@@ -16,7 +16,8 @@
 ?RCS: Revision 3.0  1993/08/18  12:09:31  ram
 ?RCS: Baseline for dist 3.0 netwide release.
 ?RCS:
-?MAKE:patchlevel revision version subversion perl_patchlevel \
+?MAKE:patchlevel revision version subversion \
+	perl_patchlevel version_patchlevel_string \
 	api_revision api_version api_subversion api_versionstring: \
 	package test rsrc echo awk osname
 ?MAKE:	-pick add $@ %<
@@ -99,7 +100,15 @@
 ?S:	the maintenance versus development dichotomy except
 ?S:	by also being increasing.
 ?S:.
-
+?S:version_patchlevel_string:
+?S:	This is a string combining version, subversion and
+?S:	perl_patchlevel (if perl_patchlevel is non-zero).  
+?S:	It is typically something like 
+?S:	'version 7 subversion 1'  or
+?S:	'version 7 subversion 1 patchlevel 11224'
+?S:	It is computed here to avoid duplication of code in myconfig.SH
+?S:	and lib/Config.pm. 
+?S:.
 ?LINT:extern LC_ALL
 ?LINT:change LC_ALL
 ?LINT:extern LANGUAGE
@@ -130,11 +139,15 @@ if $test -r $rsrc/.patch ; then
 		perl_patchlevel=`cat $rsrc/.patch`
 	fi
 fi
+: Define a handy string here to avoid duplication in myconfig.SH and configpm.
+version_patchlevel_string="version $patchlevel subversion $subversion"
 case "$perl_patchlevel" in
-0)  ;;
-'') $echo "(You have $package version $patchlevel subversion $subversion.)" ;;
-*)  $echo "(You have $package version $patchlevel subversion $subversion patchlevel $perl_patchlevel.)" ;;
+0|'') ;;
+*) version_patchlevel_string="$version_patchlevel_string patch $perl_patchlevel" ;;
 esac
+
+$echo "(You have $package $version_patchlevel_string.)"
+
 case "$osname" in
 dos|vms)
 	: XXX Should be a Configure test for double-dots in filenames.