defins.t: Suppress uninit warning

[perl5.git] / t / op / defins.t

diff --git a/t/op/defins.t b/t/op/defins.t
index d4ad2cf..d3d50fb 100644 (file)
--- a/t/op/defins.t
+++ b/t/op/defins.t
@@ -133,6 +133,7 @@ cmp_ok($seen,'==',1,'saw file in bare "... while readdir"');
 
 rewinddir(DIR);
 $seen = 0;
 
 rewinddir(DIR);
 $seen = 0;

+$_ = "";  # suppress uninit warning

 do
  {
   $seen++ if $_ eq $wanted_filename;
 do
  {
   $seen++ if $_ eq $wanted_filename;