--- a/CrashTest.pl	Wed May 02 21:46:54 2012 +0200
+++ b/CrashTest.pl	Thu May 03 13:17:05 2012 +0200
@@ -55,9 +55,12 @@
     my $self = shift;
 
     my @files;
-    opendir my ($dh), $data_path;
-    while(readdir $dh) {
-        if($_ =~ /(.*)\.json$/) {
+    opendir my ($dh), $data_path or die $!;
+    my @allfiles = readdir $dh;
+    foreach(@allfiles)
+    {
+        if($_ =~ /(.*)\.json$/)
+        {
             my $filename = File::Spec->catfile($data_path, $_);
             push @files, {
                 file => $filename,