Naughty /dev/printer (ls -l, really) of IRIX.

p4raw-id: //depot/perl@13898

1 files changed, 5 insertions, 0 deletions

diff --git a/t/op/stat.t b/t/op/stat.t
index 57460fcfd1..2f18382fa8 100755
--- a/t/op/stat.t
+++ b/t/op/stat.t
@@ -215,6 +215,11 @@ SKIP: {
     $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.