[Ming-cvs] ming/perl_ext Sound.xs, 1.3, 1.4 SoundInstance.xs, 1.2, 1.3

[A.Kleine <ak...@us...>]

Update of /cvsroot/ming/ming/perl_ext
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv7843/ming/perl_ext

Modified Files:
	Sound.xs SoundInstance.xs 
Log Message:
This patch does fix a bug reported by Yung-chung Lin 
at 2008-08-09 on the 'ming-users' mailing list 
in using Sound objects via the Perl interface: 'new SWF::Sound(...);'


Index: SoundInstance.xs
===================================================================
RCS file: /cvsroot/ming/ming/perl_ext/SoundInstance.xs,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** SoundInstance.xs	26 Sep 2007 09:20:51 -0000	1.2
--- SoundInstance.xs	23 Dec 2008 14:09:53 -0000	1.3
***************
*** 22,26 ****
  
  void
! SWFSoundInstance_DESTROY(inst)
  	SWF::SoundInstance	inst
  	CODE:
--- 22,26 ----
  
  void
! destroySWFSoundInstance(inst)
  	SWF::SoundInstance	inst
  	CODE:

Index: Sound.xs
===================================================================
RCS file: /cvsroot/ming/ming/perl_ext/Sound.xs,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Sound.xs	30 Apr 2008 13:24:56 -0000	1.3
--- Sound.xs	23 Dec 2008 14:09:53 -0000	1.4
***************
*** 48,51 ****
--- 48,52 ----
  		} else {
  			RETVAL = newSWFSound(f, flags);
+ 			ST(0) = sv_newmortal();	
  			sv_setref_pv(ST(0), package, (void*)RETVAL);
  		}