[svn:parrot] r44334 - trunk/t/perl

[mikehh at svn.parrot.org]

Author: mikehh
Date: Tue Feb 23 00:10:29 2010
New Revision: 44334
URL: https://trac.parrot.org/parrot/changeset/44334

Log:
trying fix a test that got messed up removing cuddled else

Modified:
   trunk/t/perl/Parrot_Test.t

Modified: trunk/t/perl/Parrot_Test.t
==============================================================================
--- trunk/t/perl/Parrot_Test.t	Mon Feb 22 23:40:13 2010	(r44333)
+++ trunk/t/perl/Parrot_Test.t	Tue Feb 23 00:10:29 2010	(r44334)
@@ -1,5 +1,5 @@
 #! perl
-# Copyright (C) 2001-2008, Parrot Foundation.
+# Copyright (C) 2001-2010, Parrot Foundation.
 # $Id$
 
 =head1 NAME
@@ -286,7 +286,7 @@
 test_test($desc);
 
 $desc = 'pir_error_output_like: todo';
-$line = line_num(+21);
+$line = line_num(+22);
 my $location;
 if ($Test::Builder::VERSION <= eval '0.33') {
     $location = "in $0 at line $line";