[Templates-cvs] cvs commit: Template2/lib/Template/Plugin File.pm

[cvs@template-toolkit.org]

cvs         04/12/22 08:44:27

  Modified:    lib/Template/Plugin File.pm
  Log:
  * removed & from getpwuid()
  
  Revision  Changes    Path
  2.66      +5 -5      Template2/lib/Template/Plugin/File.pm
  
  Index: File.pm
  ===================================================================
  RCS file: /template-toolkit/Template2/lib/Template/Plugin/File.pm,v
  retrieving revision 2.65
  retrieving revision 2.66
  diff -u -r2.65 -r2.66
  --- File.pm	2004/01/30 19:33:16	2.65
  +++ File.pm	2004/12/22 08:44:27	2.66
  @@ -16,7 +16,7 @@
   #   modify it under the same terms as Perl itself.
   #
   # REVISION
  -#   $Id: File.pm,v 2.65 2004/01/30 19:33:16 abw Exp $
  +#   $Id: File.pm,v 2.66 2004/12/22 08:44:27 abw Exp $
   #
   #============================================================================
   
  @@ -34,7 +34,7 @@
   use base qw( Template::Plugin );
   use vars qw( @STAT_KEYS );
   
  -$VERSION = sprintf("%d.%02d", q$Revision: 2.65 $ =~ /(\d+)\.(\d+)/);
  +$VERSION = sprintf("%d.%02d", q$Revision: 2.66 $ =~ /(\d+)\.(\d+)/);
   
   @STAT_KEYS = qw( dev ino mode nlink uid gid rdev size 
   		 atime mtime ctime blksize blocks );
  @@ -101,7 +101,7 @@
   	    || return $class->throw("$abs: $!");
   	@$self{ @STAT_KEYS } = @stat;
   	unless ($config->{ noid }) {
  -	    $self->{ user  } = eval { &getpwuid( $self->{ uid }) || $self->{ uid } };
  +	    $self->{ user  } = eval { getpwuid( $self->{ uid }) || $self->{ uid } };
   	    $self->{ group } = eval { getgrgid( $self->{ gid }) || $self->{ gid } };
   	}
   	$self->{ isdir } = -d $abs;
  @@ -400,8 +400,8 @@
   
   =head1 VERSION
   
  -2.64, distributed as part of the
  -Template Toolkit version 2.13, released on 30 January 2004.
  +2.65, distributed as part of the
  +Template Toolkit version 2.14, released on 04 October 2004.