Modernize opendir() syntax

p4raw-id: //depot/perl@31576

diff --git a/pod/perlsub.pod b/pod/perlsub.pod
index a04dfc9..fed1474 100644 (file)
--- a/pod/perlsub.pod
+++ b/pod/perlsub.pod
@@ -1302,10 +1302,9 @@ that understands regular expressions.
     sub glob {
        my $pat = shift;
        my @got;
-       local *D;
-       if (opendir D, '.') { 
-           @got = grep /$pat/, readdir D; 
-           closedir D;   
+       if (opendir my $d, '.') { 
+           @got = grep /$pat/, readdir $d; 
+           closedir $d;   
        }
        return @got;
     }