重複とかで死ぬように

Songmu · Dec 2, 2012 · bebca79 · bebca79
1 parent 9ed4a44
commit bebca79
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/lib/Script/Ichigeki.pm b/lib/Script/Ichigeki.pm
@@ -22,6 +22,8 @@ sub import {
 {
     my $_HISSATSU;
     sub ichigeki {
+        die "Already running!\n" if $_HISSATSU;
+
         $_HISSATSU = Script::Ichigeki::Hissatsu->new(@_);
         $_HISSATSU->execute;
     }