Permalink
Browse files

Add darwin SDLPerl check

  • Loading branch information...
1 parent 5b844f6 commit 9e1ef105b963d8bd65f57d13474ce16ceba9529a @jtpalmer committed May 21, 2012
Showing with 7 additions and 0 deletions.
  1. +7 −0 bin/sokoban.pl
View
@@ -1,6 +1,13 @@
#!/usr/bin/perl
use strict;
use warnings;
+
+BEGIN {
+ if ( $^O eq 'darwin' && $^X ne 'SDLPerl' ) {
+ exec 'SDLPerl', $0, @ARGV or die "Failed to exec SDLPerl: $!";
+ }
+}
+
use SDL;
use SDL::Event;
use SDL::Rect;

0 comments on commit 9e1ef10

Please sign in to comment.