diff options
| -rw-r--r-- | utils/perldoc.PL | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/utils/perldoc.PL b/utils/perldoc.PL index 5dd0e1b1fb..c4a9113b4a 100644 --- a/utils/perldoc.PL +++ b/utils/perldoc.PL @@ -559,6 +559,13 @@ if ($opt_q) { local @ARGV = @found; # I'm lazy, sue me. my $found = 0; my %found_in; + my $rx = eval { qr/$opt_q/ }; + die <<EOD unless $rx; +Invalid regular expression '$opt_q' given as -q pattern: + $@ +Did you mean \\Q$opt_q ? + +EOD while (<>) { if (/^=head2\s+.*(?:$opt_q)/oi) { |