Author: joes
Date: Tue Mar 18 03:35:00 2014
New Revision: 1578732
URL: http://svn.apache.org/r1578732
Log:
skip self-recursive loop
Modified:
thrift/cms-site/trunk/lib/view.pm
Modified: thrift/cms-site/trunk/lib/view.pm
URL:
http://svn.apache.org/viewvc/thrift/cms-site/trunk/lib/view.pm?rev=1578732&r1=1578731&r2=1578732&view=diff
==============================================================================
--- thrift/cms-site/trunk/lib/view.pm (original)
+++ thrift/cms-site/trunk/lib/view.pm Tue Mar 18 03:35:00 2014
@@ -11,6 +11,7 @@ sub dir_wrapper {
for (grep $_ ne "." && $_ ne "..", readdir $dh) {
my $f = -d $_ ? (glob "$_/index.*")[0] : $_;
my $file = "$dir$f";
+ next if $file eq $args{path};
my ($filename) = parse_filename $f;
my $a;
for my $p (@path::patterns) {
