Opening filehandle $foo also as a directory at - line 10.
########
# pp_sys.c [pp_*dir]
+use Config ;
+BEGIN {
+ if ( ! $Config{d_telldir}) {
+ print <<EOM ;
+SKIPPED
+# telldir not present
+EOM
+ exit
+ }
+}
+#line 2
use warnings 'io';
opendir FOO, ".";
opendir $foo, ".";
########
# pp_sys.c [pp_*dir]
+use Config ;
+BEGIN {
+ if ( ! $Config{d_telldir}) {
+ print <<EOM ;
+SKIPPED
+# telldir not present
+EOM
+ exit
+ }
+}
+#line 3
use utf8;
use open qw( :utf8 :std );
use warnings 'io';