From 8c2895c12755365fac1b01c2c29b924c508fadd1 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Wed, 15 Jun 2011 20:41:03 +0200 Subject: Add Build.PL --- bin/ekgping | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'bin/ekgping') diff --git a/bin/ekgping b/bin/ekgping index f946c53..32d7770 100755 --- a/bin/ekgping +++ b/bin/ekgping @@ -4,6 +4,7 @@ use strict; use warnings; use 5.010; +use File::ShareDir qw(dist_file); use IO::Handle; use IPC::Run qw(harness io); use SDL::Mixer; @@ -24,7 +25,8 @@ my $column = 0; my $column_max = Term::Size::chars; my $mixer = SDL::Mixer->new(); -my $beep_sound = SDL::Music->new('beep.ogg'); +my $beep_file = dist_file('ekgping', 'beep.ogg'); +my $beep_sound = SDL::Music->new($beep_file); my $ping = harness( [ 'ping', '-n', $host ], -- cgit v1.2.3