Change 13898 by jhi@alpha on 2001/12/26 21:21:01
Naughty /dev/printer (ls -l, really) of IRIX.
Affected files ...
.... //depot/perl/t/op/stat.t#52 edit
Differences ...
==== //depot/perl/t/op/stat.t#52 (xtext) ====
Index: perl/t/op/stat.t
--- perl/t/op/stat.t.~1~ Wed Dec 26 14:30:05 2001
+++ perl/t/op/stat.t Wed Dec 26 14:30:05 2001
@@ -215,6 +215,11 @@
$DEV =~ s{^[cp].+?\sstdout$}{}m;
@DEV = grep { $_ ne 'stdout' } @DEV;
+ # /dev/printer is also naughty: in IRIX it shows up as
+ # Srwx-----, not srwx------.
+ $DEV =~ s{^.+?\sprinter$}{}m;
+ @DEV = grep { $_ ne 'printer' } @DEV;
+
# If running as root, we will see .files in the ls result,
# and readdir() will see them always. Potential for conflict,
# so let's weed them out.
End of Patch.
