diff --git a/bin/test_pike.pike b/bin/test_pike.pike index 235b2f1b28164fbb2e26578e9904bd30318e57a3..20d27dc50c8f446cd89f90c7293f081579375ede 100755 --- a/bin/test_pike.pike +++ b/bin/test_pike.pike @@ -1,6 +1,6 @@ #!/usr/local/bin/pike -/* $Id: test_pike.pike,v 1.46 2000/04/05 20:33:16 grubba Exp $ */ +/* $Id: test_pike.pike,v 1.47 2000/04/15 05:03:41 hubbe Exp $ */ import Stdio; @@ -355,7 +355,16 @@ int main(int argc, array(string) argv) object o; mixed a,b; - if(check) _verify_internals(); + if(check) + { + if(check < 0) + { + if(!(e % -check)) + _verify_internals(); + }else{ + _verify_internals(); + } + } if(check>3) { gc(); _verify_internals();