Push to modules after all error checks

Raku · Jun 10, 2017 · da0fa74 · da0fa74
1 parent dc99c51
commit da0fa74
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/server/updatelist.pl b/server/updatelist.pl
@@ -30,14 +30,14 @@
         if ($response->is_success) {
             my $module = decode_json $response->content;
             _normalize_module($module);
-            push @modules, $module;
             my $name = $module->{name};
             if ($name =~ m{[/\\]} || $name =~ m{\.\.}) {
                 die "Invalid module name '$name'";
             }
             open my $OUT, '>', File::Spec->catfile($OUTDIR, 'module', $name);
             print $OUT $response->content;
             close $OUT;
+            push @modules, $module;
         }
         else {
             die 'Unsuccessful HTTP response: ' . $response->code