More playing with the regex

lancew · Jan 19, 2021 · 39cb6dc · 39cb6dc
1 parent ff966fd
commit 39cb6dc
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/lib/vwjl_admin.pm b/lib/vwjl_admin.pm
@@ -181,11 +181,13 @@ get '/database' => sub {
 
     };
 
+    my $file_migration_level;
     my @file_list = $inf->get_migration_files;
     $file_list[-1] =~ /^(\d{3})/;
 
-    my $file_migration_level;
-    $file_migration_level = $1 if $1;
+    if ($1) {
+        $file_migration_level = $1 if $1;
+    }
 
     template 'admin/database' => {
         users                => $users,