diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-26 21:21:01 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-26 21:21:01 +0000 |
| commit | c7974a0a6e1dc44cd0f91d992a27679cb5e55c95 (patch) | |
| tree | d8d5a626d3f7be63acba2be12d9800736c344fce /t | |
| parent | 49afa5f6a0c89badde3e7bcd8ece054574377201 (diff) | |
| download | perl-c7974a0a6e1dc44cd0f91d992a27679cb5e55c95.tar.gz | |
Naughty /dev/printer (ls -l, really) of IRIX.
p4raw-id: //depot/perl@13898
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/stat.t | 5 |
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. |