Add darwin SDLPerl check, etc.

jtpalmer · May 21, 2012 · bfb4771 · bfb4771
1 parent 625211f
commit bfb4771
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/bin/snake.pl b/bin/snake.pl
@@ -1,9 +1,19 @@
 #!perl
 use strict;
 use warnings;
+
+BEGIN {
+    if ( $^O eq 'darwin' && $^X ne 'SDLPerl' ) {
+        exec 'SDLPerl', $0, @ARGV or die "Failed to exec SDLPerl: $!";
+    }
+}
+
 use Games::Snake;
 
 # PODNAME: snake.pl
+# ABSTRACT: Play the game
 
 Games::Snake->new()->run();
 
+exit;
+