--- BSD-Resource-1.28/t/setrlimit.t.orig	2007-06-30 16:46:03.000000000 -0500
+++ BSD-Resource-1.28/t/setrlimit.t	2007-06-30 16:46:13.000000000 -0500
@@ -18,7 +18,7 @@
   my ($oldlim, $oldhard) = @_;
 
   my $newlim =
-      ($oldlim == RLIM_INFINITY) ? $oldlim : $oldlim ? int(0.95 * $oldlim) : 1;
+      ($oldlim == RLIM_INFINITY) ? $oldlim : $oldlim ? int(0.95 * $oldlim) : 0;
   
   # print "newlim/1 = $newlim\n";