Permalink
Browse files

Perl: don't choke when addExport is passed a null block

  • Loading branch information...
Sandro Santilli
Sandro Santilli committed Mar 18, 2011
1 parent 4507544 commit f809449268ef9e306c52b4012d7dbdf71aad1c60
Showing with 1 addition and 1 deletion.
  1. +1 −1 perl_ext/Movie.xs
View
@@ -131,7 +131,7 @@ SWFMovie_addExport(movie, block, name)
char *name
CODE:
swf_stash_refcnt_inc((SV*)SvRV(ST(0)), (SV*)SvRV(ST(1)));
- SWFMovie_addExport(movie, block, name);
+ if ( block ) SWFMovie_addExport(movie, block, name);
void
SWFMovie_writeExports(movie)

0 comments on commit f809449

Please sign in to comment.