MIDI::Opus error report

As it's experimental....

sub save_drawing { my $opus = shift; # a MIDI::Opus object
    my $image = $opus->draw();
	open (OUT, ">out.gif") or return undef;
	binmode(OUT);
	print OUT $image->jpeg;
	close(OUT);
	return 1;
}

Use of uninitialized value in length at
D:/Lang/Perl/AS623/site/lib/MIDI/Opus.pm line 598.


Lee Goddard  http://www.leegoddard.com
Perl / XML / XSLT / Java / Iconoclasm