From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 9 Mar 1999 23:04:44 +0000 (+0000)
Subject: change#3060 had the wrong quotes
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=258f629a78127140b4644bf8cc6ec15b387ab089;p=p5sagit%2Fp5-mst-13.2.git

change#3060 had the wrong quotes

p4raw-link: @3060 on //depot/perl: 31873dd158564755e261eee3e1f9bf51384dc563

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

diff --git a/pod/pod2man.PL b/pod/pod2man.PL
index 61b6129..7494c26 100644
--- a/pod/pod2man.PL
+++ b/pod/pod2man.PL
@@ -679,7 +679,7 @@ $indent = 0;
 $begun = "";
 
 # Unrolling [^-=A-Z>]|[A-Z](?!<)|[-=](?![A-Z]<)[\x00-\xFF] gives: // MRE pp 165.
-my $nonest = '(?x)              # Turn on /x mode.
+my $nonest = q{(?x)             # Turn on /x mode.
               (?:               # Group
                 [^-=A-Z>]*      # Anything that isn't a dash, equal sign or
                                 # closing hook isn't special. Eat as much as
@@ -695,7 +695,7 @@ my $nonest = '(?x)              # Turn on /x mode.
                   )             # End of special sequences.
                   [^-=A-Z>]*    # Followed by zero or more non-special chars. 
                 )*              # And we can repeat this as often as we can.
-              )';               # That's all folks.
+              )};               # That's all folks.
 
 while (<>) {
     if ($cutting) {