[Templates-cvs] cvs commit: TT3/t provider.t

[cvs@template-toolkit.org]

cvs         04/03/23 13:34:58

  Modified:    t        provider.t
  Log:
  * reflected changes in fetch_path()
  
  Revision  Changes    Path
  1.2       +3 -3      TT3/t/provider.t
  
  Index: provider.t
  ===================================================================
  RCS file: /template-toolkit/TT3/t/provider.t,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- provider.t	2004/03/23 13:24:51	1.1
  +++ provider.t	2004/03/23 13:34:58	1.2
  @@ -9,7 +9,7 @@
   # This is free software; you can redistribute it and/or modify it
   # under the same terms as Perl itself.
   #
  -# $Id: provider.t,v 1.1 2004/03/23 13:24:51 abw Exp $
  +# $Id: provider.t,v 1.2 2004/03/23 13:34:58 abw Exp $
   #
   #========================================================================
   
  @@ -357,8 +357,8 @@
   use base qw( Template::Provider );
   
   sub fetch_path {
  -    my ($self, $path, $opts) = @_;
  -    push(@DATA, $path);
  +    my ($self, $path, $name, $opts) = @_;
  +    push(@DATA, "$path/$name");
       return 0;
   }