From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 26 Dec 2001 21:21:01 +0000 (+0000)
Subject: Naughty /dev/printer (ls -l, really) of IRIX.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c7974a0a6e1dc44cd0f91d992a27679cb5e55c95;p=p5sagit%2Fp5-mst-13.2.git

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

p4raw-id: //depot/perl@13898
---

diff --git a/t/op/stat.t b/t/op/stat.t
index 57460fc..2f18382 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.