From 5369a12a8c1ff6b0f04ec193aaf57ad238bf76b8 Mon Sep 17 00:00:00 2001
From: "Craig A. Berry" <craigberry@mac.com>
Date: Mon, 22 Nov 2010 22:38:12 -0600
Subject: Fix multiple perldelta entries from buildtoc on VMS.

---
 pod/buildtoc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'pod/buildtoc')

diff --git a/pod/buildtoc b/pod/buildtoc
index d5fccdd0f7..418133bdd8 100644
--- a/pod/buildtoc
+++ b/pod/buildtoc
@@ -695,7 +695,7 @@ sub do_vms {
 
 # Looking for rules like this:
 #	- If F$Search("[.pod]perldelta.pod").nes."" Then Delete/NoConfirm/Log [.pod]perldelta.pod;*
-  $makefile =~ s!(?:\t- If F\$Search\("\[\.pod\]perl[a-z]+\Q.pod").nes."" Then Delete/NoConfirm/Log [.pod]perl\E[a-z]+\.pod;\*\n)+!\0!sg;
+  $makefile =~ s!(?:\t- If F\$Search\("\[\.pod\]perl\d*[a-z]+\Q.pod").nes."" Then Delete/NoConfirm/Log [.pod]perl\E\d*[a-z]+\.pod;\*\n)+!\0!sg;
   verify_contiguous($name, $makefile, 'delete rules');
   $makefile =~ s/\0+/join "\n", &generate_descrip_mms_3, ''/se;
 
-- 
cgit v1.2.1