Permalink
Browse files

Add SDLPerl check for darwin

  • Loading branch information...
1 parent 51469a1 commit 0f81c6b723fc693ec24b2aed77b366ff17fe5e48 @jtpalmer committed May 20, 2012
Showing with 8 additions and 3 deletions.
  1. +8 −3 bin/sdl_maze.pl
View
@@ -1,13 +1,18 @@
#!perl
-
use strict;
use warnings;
-package
- sdl_maze;
+BEGIN {
+ if ( $^O eq 'darwin' && $^X ne 'SDLPerl' ) {
+ exec 'SDLPerl', $0, @ARGV or die "Failed to exec SDLPerl: $!";
+ }
+}
use Games::Maze::SDL;
# ABSTRACT: Play the game!
Games::Maze::SDL->new->run(@ARGV);
+
+exit;
+

0 comments on commit 0f81c6b

Please sign in to comment.