Avoid a complaint about use of $_ in "my" from some perl versions.

1 files changed, 2 insertions, 1 deletions

diff --git a/risugen b/risugen
index 39a3602..cc37bef 100755
--- a/risugen
+++ b/risugen
@@ -421,7 +421,8 @@ sub parse_risu_directive($$$)
     # At the moment we only support one directive:
     #  .mode modename
     # where modename can be "arm" or "thumb"
-    my ($file, $seen_pattern, $_) = @_;
+    my ($file, $seen_pattern);
+    ($file, $seen_pattern, $_) = @_;
     my ($dirname, @rest) = split;
     if ($dirname eq ".mode") {
         if ($seen_pattern != 0) {