X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pod%2Fperlsub.pod;h=392323a288fa9dd745d9822853c113d51977f901;hb=227a8b4b89a56a5f0c4892bc310a24a6cfceb3b7;hp=5baff894730f7edeec62feba0f3a6ac9a6bffc2a;hpb=4c50607213c2b23bfa1ef0717a5a31b40103430b;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pod/perlsub.pod b/pod/perlsub.pod
index 5baff89..392323a 100644
--- a/pod/perlsub.pod
+++ b/pod/perlsub.pod
@@ -1065,7 +1065,7 @@ that understands regular expressions.
 	my $pat = shift;
 	my @got;
 	local(*D);
-	if (opendir D, '.') { @got = grep /$pat/o, readdir D; closedir D; }
+	if (opendir D, '.') { @got = grep /$pat/, readdir D; closedir D; }
 	@got;
     }
     1;