diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-03-09 23:04:44 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-03-09 23:04:44 +0000 |
| commit | 258f629a78127140b4644bf8cc6ec15b387ab089 (patch) | |
| tree | 867e6a268305ac7ef94f97c21c89cbfd1de7fece /pod/pod2man.PL | |
| parent | 0244c3a403af2426ac6678d042024bb183ebbfa9 (diff) | |
| download | perl-258f629a78127140b4644bf8cc6ec15b387ab089.tar.gz | |
change#3060 had the wrong quotes
p4raw-link: @3060 on //depot/perl: 31873dd158564755e261eee3e1f9bf51384dc563
p4raw-id: //depot/perl@3100
Diffstat (limited to 'pod/pod2man.PL')
| -rw-r--r-- | pod/pod2man.PL | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pod/pod2man.PL b/pod/pod2man.PL index 61b6129ed9..7494c26595 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) { |