From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 7 Nov 2001 15:54:24 +0000 (+0000)
Subject: VMS patch redo from Charles Lane.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cbe4ad0c13ec49e4976e0878325738b2d49d7b86;p=p5sagit%2Fp5-mst-13.2.git

VMS patch redo from Charles Lane.

p4raw-id: //depot/perl@12891
---

diff --git a/vms/gen_shrfls.pl b/vms/gen_shrfls.pl
index a0ade7e..07b6f8e 100644
--- a/vms/gen_shrfls.pl
+++ b/vms/gen_shrfls.pl
@@ -76,7 +76,7 @@ if ($docc) {
   open CONFIG, "< $config";
   while(<CONFIG>) {
     $use_threads++ if /usethreads='(define|yes|true|t|y|1)'/i;
-    $use_mymalloc++ if /usemymalloc='(define|yes|true|t|y1)'/i;
+    $use_mymalloc++ if /usemymalloc='(define|yes|true|t|y|1)'/i;
     $care_about_case++ if /d_vms_case_sensitive_symbols='(define|yes|true|t|y|1)'/i;
     $debugging_enabled++ if /usedebugging_perl='(define|yes|true|t|y|1)'/i;
     $hide_mymalloc++ if /embedmymalloc='(define|yes|true|t|y|1)'/i;