[Templates-cvs] cvs commit: Template2/t stash-xs.t

[cvs@template-toolkit.org]

cvs         06/05/30 08:23:30

  Modified:    t        stash-xs.t
  Log:
  * fixed error reporting to prevent failing tests under 5.6.2
  
  Revision  Changes    Path
  2.12      +3 -3      Template2/t/stash-xs.t
  
  Index: stash-xs.t
  ===================================================================
  RCS file: /template-toolkit/Template2/t/stash-xs.t,v
  retrieving revision 2.11
  retrieving revision 2.12
  diff -u -r2.11 -r2.12
  --- stash-xs.t	2006/05/26 13:46:27	2.11
  +++ stash-xs.t	2006/05/30 08:23:30	2.12
  @@ -13,12 +13,12 @@
   # This is free software; you can redistribute it and/or modify it
   # under the same terms as Perl itself.
   #
  -# $Id: stash-xs.t,v 2.11 2006/05/26 13:46:27 abw Exp $
  +# $Id: stash-xs.t,v 2.12 2006/05/30 08:23:30 abw Exp $
   #
   #========================================================================
   
   use strict;
  -use lib qw( ./lib ../lib ../blib/lib ../blib/arch );
  +use lib qw( ./lib ../lib ../blib/lib ../blib/arch ./blib/lib ./blib/arch );
   use Template::Constants qw( :status );
   use Template;
   use Template::Test;
  @@ -82,7 +82,7 @@
       hashobj => bless({ planet => 'World' }, 'HashObject'),
       clean   => sub {
           my $error = shift;
  -        $error =~ s/\s+at.*$//;
  +        $error =~ s/(\s*\(.*?\))?\s+at.*$//;
           return $error;
       },
       correct => sub { die @_ },