This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
defins.t: Suppress uninit warning
authorFather Chrysostomos <sprout@cpan.org>
Fri, 12 Oct 2012 03:26:23 +0000 (20:26 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 12 Oct 2012 06:07:37 +0000 (23:07 -0700)
and make the no-warnings test pass.

t/op/defins.t

index d4ad2cf..d3d50fb 100644 (file)
@@ -133,6 +133,7 @@ cmp_ok($seen,'==',1,'saw file in bare "... while readdir"');
 
 rewinddir(DIR);
 $seen = 0;
+$_ = "";  # suppress uninit warning
 do
  {
   $seen++ if $_ eq $wanted_filename;