This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix multiple perldelta entries from buildtoc on VMS.
authorCraig A. Berry <craigberry@mac.com>
Tue, 23 Nov 2010 04:38:12 +0000 (22:38 -0600)
committerCraig A. Berry <craigberry@mac.com>
Tue, 23 Nov 2010 04:39:40 +0000 (22:39 -0600)
pod/buildtoc

index d5fccdd..418133b 100644 (file)
@@ -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;