From:	(Nicholas G. Thornton)	Date:	Wed Mar 26 03:04:38 2003
Subject:	unknown Mac::Sound error

Hello, I'm a newbie to the mac toolbox but I figured I'd jump right in. I'm
trying to use Mac::Sound::SndStartFilePlay() but I get an error:# OS error -51
(Error message file not available). What does it mean, and how can I fix it?

It might be a problem with the file reference number thing (which I don't
understand) but looking through the archives I found something implying that it
should work. In case it helps the code follows.

Thanks in advance,
~wren

#!perl -w
use strict;
use Mac::Sound;
use vars qw($filename $file_ref_number $ch $chan $sel $theSelection);
my $ch  = 0; $chan         = bless \$ch,  "SndChannel";
my $sel = 0; $theSelection = bless \$sel, "AudioSelection";

$filename = shift @ARGV; # for argument's sake
&PlayAiff($filename);
print 'Test Done!';

sub PlayAiff {
	my $filename = shift;
	open (SOUND, $filename) or die "Couldn't open $filename";
	SndStartFilePlay($chan, \*SOUND, 0, 0, $theSelection, 0, 0) or die $^E;
	close SOUND;
}
__END__