diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2011-06-15 20:41:03 +0200 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2011-06-15 20:41:03 +0200 |
| commit | 8c2895c12755365fac1b01c2c29b924c508fadd1 (patch) | |
| tree | 39d5ff55b16c55c3ddc2a8fc718c02529c4b698a /bin/ekgping | |
| parent | 513f4e1aef7f49537c6e2dcbd9528a62180b34c0 (diff) | |
Add Build.PL
Diffstat (limited to 'bin/ekgping')
| -rwxr-xr-x | bin/ekgping | 4 |
1 files changed, 3 insertions, 1 deletions
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 ], |