On Mon, 3 Sep 2001 07:43:00 -0400, in perl.perl5.porters you wrote:
> +# Check that srand() isn't effected by $_
*a*ffected.
> + 'srand(), no arg, not effected by $_');
And again.
--- t/op/srand.t.orig Mon Sep 3 13:07:28 2001
+++ t/op/srand.t Mon Sep 3 20:27:36 2001
@@ -41,7 +41,7 @@
ok( !eq_array(\@first_run, \@second_run), 'srand(), no arg, different rands');
-# Check that srand() isn't effected by $_
+# Check that srand() isn't affected by $_
{
local $_ = 42;
srand();
@@ -51,7 +51,7 @@
@second_run = mk_rand;
ok( !eq_array(\@first_run, \@second_run),
- 'srand(), no arg, not effected by $_');
+ 'srand(), no arg, not affected by $_');
}
End of patch.
Cheers,
Philip
