This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Diagnose possible quota limits.
[perl5.git] / t / op / lfs.t
index af7853b..2384c96 100644 (file)
@@ -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();
 }