This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make PERL_PATCHLEVEL a single value quoted string
authorH.Merijn Brand <h.m.brand@xs4all.nl>
Thu, 25 Dec 2008 11:59:41 +0000 (12:59 +0100)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Thu, 25 Dec 2008 11:59:41 +0000 (12:59 +0100)
U/modified/Oldsym.U
U/perl/patchlevel.U

index 75c00d2..9c25d24 100644 (file)
@@ -33,7 +33,7 @@ $test -f UU/cmdline.opt && $cat UU/cmdline.opt >> config.sh
 : add special variables
 $test -f $src/patchlevel.h && \
 awk '/^#define[        ]+PERL_/ {printf "%s=%s\n",$2,$3}' $src/patchlevel.h >>config.sh
-echo "PERL_PATCHLEVEL=$perl_patchlevel" >>config.sh
+echo "PERL_PATCHLEVEL='$perl_patchlevel'" >>config.sh
 echo "PERL_CONFIG_SH=true" >>config.sh
 
 : propagate old symbols
index dd21fde..59ce1cc 100644 (file)
@@ -141,7 +141,9 @@ fi
 version_patchlevel_string="version $patchlevel subversion $subversion"
 case "$perl_patchlevel" in
 0|'') ;;
-*) version_patchlevel_string="$version_patchlevel_string patch $perl_patchlevel" ;;
+*)  perl_patchlevel=`echo $perl_patchlevel | sed 's/.* //'`
+    version_patchlevel_string="$version_patchlevel_string patch $perl_patchlevel"
+    ;;
 esac
 
 $echo "(You have $package $version_patchlevel_string.)"