From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 5 Jan 2008 14:30:01 +0000 (+0000)
Subject: Make ext/re/t/re_funcs.t warnings clean.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=08f18727250f262830d3b2860052d5b5e6083051;p=p5sagit%2Fp5-mst-13.2.git

Make ext/re/t/re_funcs.t warnings clean.

p4raw-id: //depot/perl@32842
---

diff --git a/ext/re/t/re_funcs.t b/ext/re/t/re_funcs.t
index 97f795e..c03fce1 100644
--- a/ext/re/t/re_funcs.t
+++ b/ext/re/t/re_funcs.t
@@ -11,6 +11,7 @@ BEGIN {
 }
 
 use strict;
+use warnings;
 
 use Test::More; # test count at bottom of file
 use re qw(is_regexp regexp_pattern regmust 
@@ -42,7 +43,7 @@ use re qw(is_regexp regexp_pattern regmust
 if ('1234'=~/(?:(?<A>\d)|(?<C>!))(?<B>\d)(?<A>\d)(?<B>\d)/){
     my @names = sort +regnames();
     is("@names","A B","regnames");
-    my @names = sort +regnames(0);
+    @names = sort +regnames(0);
     is("@names","A B","regnames");
     my $names = regnames();
     is($names, "B", "regnames in scalar context");