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

[cvs@template-toolkit.org]

cvs         06/05/30 08:21:59

  Modified:    t        stash.t
  Log:
  * fixed last test to clean up error better to prevent failed test on
    Perl 5.6.2
  
  Revision  Changes    Path
  2.18      +2 -2      Template2/t/stash.t
  
  Index: stash.t
  ===================================================================
  RCS file: /template-toolkit/Template2/t/stash.t,v
  retrieving revision 2.17
  retrieving revision 2.18
  diff -u -r2.17 -r2.18
  --- stash.t	2006/05/26 13:46:27	2.17
  +++ stash.t	2006/05/30 08:21:58	2.18
  @@ -12,7 +12,7 @@
   # This is free software; you can redistribute it and/or modify it
   # under the same terms as Perl itself.
   #
  -# $Id: stash.t,v 2.17 2006/05/26 13:46:27 abw Exp $
  +# $Id: stash.t,v 2.18 2006/05/30 08:21:58 abw Exp $
   #
   #========================================================================
   
  @@ -70,7 +70,7 @@
       listobj => bless([10, 20, 30], 'ListObject'),
       clean   => sub {
           my $error = shift;
  -        $error =~ s/\s+at.*$//;
  +        $error =~ s/(\s*\(.*?\))?\s+at.*$//;
           return $error;
       },
   };