# HG changeset patch
# User Vincent Tondellier <tonton+hg@team1664.org>
# Date 1336080242 -7200
# Node ID dd695a90efd6df751ded9a0f1e4eb4f8dc7b7940
# Parent  989accf1fe23c82b16d04c075bfcdf24e8e0fe73# Parent  2f224f085623c3a787d9761b5ffcd10bfb17dea8
Merge

diff -r 2f224f085623 -r dd695a90efd6 CrashTest.pl
--- a/CrashTest.pl	Wed May 02 22:08:57 2012 +0200
+++ b/CrashTest.pl	Thu May 03 23:24:02 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,