From f6008f5a7954b760c94449a0829cd2eabaea85f0 Mon Sep 17 00:00:00 2001 From: Angel Ortega Date: Wed, 26 Dec 2007 14:20:05 +0100 Subject: [PATCH] The list of templates is now unique. --- Gruta/Template/BASE.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Gruta/Template/BASE.pm b/Gruta/Template/BASE.pm index 7a979bd..9635ef8 100644 --- a/Gruta/Template/BASE.pm +++ b/Gruta/Template/BASE.pm @@ -5,20 +5,20 @@ use Carp; sub templates { my $self = shift; - my @r = ( ); + my %r = ( ); foreach my $p (split(':', $self->{path})) { if (opendir D, $p) { while (my $l = readdir D) { next if -d $p . '/' . $l; - push @r, $l; + $r{$l}++; } closedir D; } } - return sort @r; + return sort keys(%r); } -- 2.11.4.GIT