X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=utils%2Fperldoc.PL;h=c4a9113b4a02f3836cc4f59c7909f186616a0edb;hb=cb50131aab68ac6dda048612c6e853b8cb08701e;hp=5dd0e1b1fb5e1c97c47fbd6c8f1d7bde56c422aa;hpb=8560c20dd6b2f3dfec719d4b500be45742de4507;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index 5dd0e1b..c4a9113 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) {