diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-09-17 12:16:34 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-09-17 12:16:34 +0000 |
commit | b948423fa27928dae94a4b06811fa23064f5c0c2 (patch) | |
tree | c94d24d3dc3205985f51ced9896044385c06de19 /t/op/lfs.t | |
parent | e1f2cf020da1d98fa139d74ba48601bf520ae0e2 (diff) | |
download | perl-b948423fa27928dae94a4b06811fa23064f5c0c2.tar.gz |
Diagnose possible quota limits.
p4raw-id: //depot/cfgperl@4169
Diffstat (limited to 't/op/lfs.t')
-rw-r--r-- | t/op/lfs.t | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/t/op/lfs.t b/t/op/lfs.t index af7853b270..2384c96d8c 100644 --- a/t/op/lfs.t +++ b/t/op/lfs.t @@ -100,10 +100,12 @@ unless ($print && $close) { } else { print "# close failed: $!\n" } - if ($! =~/File too large/) { - print "1..0\n# writing past 2GB failed\n"; - explain(); + if ($! =~/too large/i) { + print "1..0\n# writing past 2GB failed: process limits?\n"; + } elsif ($! =~ /quota/i) { + print "1..0\n# filesystem quota limits?\n"; } + ain(); bye(); } |