summaryrefslogtreecommitdiff
path: root/vms/gen_shrfls.pl
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-11-07 15:54:24 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-11-07 15:54:24 +0000
commitcbe4ad0c13ec49e4976e0878325738b2d49d7b86 (patch)
treec1b7b0ad5e393247e14d44615a9d9efa6c1ef883 /vms/gen_shrfls.pl
parent0f542199b0613bec5c6eb81f72e4a9041d7da677 (diff)
downloadperl-cbe4ad0c13ec49e4976e0878325738b2d49d7b86.tar.gz
VMS patch redo from Charles Lane.
p4raw-id: //depot/perl@12891
Diffstat (limited to 'vms/gen_shrfls.pl')
-rw-r--r--vms/gen_shrfls.pl2
1 files changed, 1 insertions, 1 deletions
diff --git a/vms/gen_shrfls.pl b/vms/gen_shrfls.pl
index a0ade7e835..07b6f8ec31 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;