diff --git a/tmp/index.pl b/tmp/index.pl
index 3308f98..f5aeaa8 100755
--- a/tmp/index.pl
+++ b/tmp/index.pl
@@ -64,7 +64,7 @@
 
 sub scan_releases
 {
-    my $file_it = File::Next::files( $cpan_base->subdir( qw( authors id ) ) );
+    my $file_it = File::Next::files( { follow_symlinks => 0 }, $cpan_base->subdir( qw( authors id ) ) );
 
     print "Scanning Files...\n";
     my $count = 0;