| … | … | ||
|---|---|---|---|
| 62 | $sound{$_}->Load($snd); | 62 | $sound{$_}->Load($snd); |
| 63 | } | 63 | } |
| 64 | 64 | ||
| 65 | sub play_sound { | 65 | sub play_sound { |
| 66 | if (fork == 0) { | 66 | if (fork == 0) { |
| 67 | my $audioserver = new Audio::Play(1); | 67 | if (my $audioserver = new Audio::Play(1)) { |
| 68 | $audioserver->play ($sound{$_[0]}); | 68 | $audioserver->play ($sound{$_[0]}); |
| 69 | } | ||
| 69 | Gtk->_exit(0); | 70 | Gtk->_exit(0); |
| 70 | } | 71 | } |
| 71 | } | 72 | } |
| 72 | } | 73 | } |
| 73 | 74 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |