back out problematic change#1105, tweak perlsub.pod

[p5sagit/p5-mst-13.2.git] / pod / perlsub.pod

diff --git a/pod/perlsub.pod b/pod/perlsub.pod
index 5baff89..392323a 100644 (file)
--- 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;