[svn:parrot] r48056 - trunk/t/library

[mikehh at svn.parrot.org]

Author: mikehh
Date: Thu Jul  8 21:32:09 2010
New Revision: 48056
URL: https://trac.parrot.org/parrot/changeset/48056

Log:
perlcritic does not like - Variable declared in conditional statement

Modified:
   trunk/t/library/pcre.t

Modified: trunk/t/library/pcre.t
==============================================================================
--- trunk/t/library/pcre.t	Thu Jul  8 15:46:15 2010	(r48055)
+++ trunk/t/library/pcre.t	Thu Jul  8 21:32:09 2010	(r48056)
@@ -1,5 +1,5 @@
 #!perl
-# Copyright (C) 2001-2009, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
 # $Id$
 
 use strict;
@@ -101,7 +101,8 @@
 OUT
 
 ## 2
-    my @todo = ( todo => '3..5 fail on Win32' ) if $^O =~ /MSWin32/;
+    my @todo;
+    @todo = ( todo => '3..5 fail on Win32' ) if $^O =~ /MSWin32/;
     pir_output_is( <<"CODE", <<'OUT', 'soup to nuts', @todo );
 
 .include 'iglobals.pasm'