Index: sdlperl-1.20.3dfsg/lib/SDL/App.pm
===================================================================
--- sdlperl-1.20.3dfsg.orig/lib/SDL/App.pm	2007-02-20 16:03:25.000000000 +0100
+++ sdlperl-1.20.3dfsg/lib/SDL/App.pm	2007-02-20 16:03:48.000000000 +0100
@@ -89,6 +89,10 @@
 	return $self;
 }	
 
+sub DESTROY {
+	;
+}
+
 sub resize ($$$) {
 	my ($self,$w,$h) = @_;
 	my $flags = SDL::SurfaceFlags($$self);