summaryrefslogtreecommitdiff
path: root/t/op/lfs.t
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>1999-09-17 12:16:34 +0000
committerJarkko Hietaniemi <jhi@iki.fi>1999-09-17 12:16:34 +0000
commitb948423fa27928dae94a4b06811fa23064f5c0c2 (patch)
treec94d24d3dc3205985f51ced9896044385c06de19 /t/op/lfs.t
parente1f2cf020da1d98fa139d74ba48601bf520ae0e2 (diff)
downloadperl-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.t8
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();
}