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 / lib / syslfs.t
index 14a968a..80f0ebf 100644 (file)
@@ -96,10 +96,12 @@ unless($syswrite && $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";
     }
+lain();
     bye();
 }