From: Father Chrysostomos <sprout@cpan.org>
Date: Fri, 12 Oct 2012 03:26:23 +0000 (-0700)
Subject: defins.t: Suppress uninit warning
X-Git-Tag: upstream/5.20.0~5154
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=b29368b8882319244d301988a33bc3432075a9f7;p=platform%2Fupstream%2Fperl.git

defins.t: Suppress uninit warning

and make the no-warnings test pass.
---

diff --git a/t/op/defins.t b/t/op/defins.t
index d4ad2cf..d3d50fb 100644
--- 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;
+$_ = "";  # suppress uninit warning
 do
  {
   $seen++ if $_ eq $wanted_filename;