Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
20 lines (13 sloc) 285 Bytes
#!perl
use strict;
use warnings;
BEGIN {
if ( $^O eq 'darwin' && $^X !~ /SDLPerl$/ ) {
exec 'SDLPerl', $0, @ARGV or die "Failed to exec SDLPerl: $!";
}
}
use Games::Maze::SDL;
# PODNAME: maze.pl
# ABSTRACT: Play the game!
Games::Maze::SDL->new->run(@ARGV);
exit;