diff options
| author | Craig A. Berry <craigberry@mac.com> | 2010-11-22 22:38:12 -0600 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2010-11-22 22:39:40 -0600 |
| commit | 5369a12a8c1ff6b0f04ec193aaf57ad238bf76b8 (patch) | |
| tree | 3116c62db5a36bb1d5c5d0210c825e3e6451d874 | |
| parent | 1eb41b0abe1a265118fa38f67089e4aef313f69b (diff) | |
| download | perl-5369a12a8c1ff6b0f04ec193aaf57ad238bf76b8.tar.gz | |
Fix multiple perldelta entries from buildtoc on VMS.
| -rw-r--r-- | pod/buildtoc | 2 |
1 files changed, 1 insertions, 1 deletions
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; |