Index: perl/Amanda/MainLoop.swg
===================================================================
--- perl/Amanda/MainLoop.swg.orig
+++ perl/Amanda/MainLoop.swg
@@ -362,6 +362,7 @@ typedef struct {
 	/* Constructor: use one of the package-level functions, below */
 	amglue_Source() {
 	    die("Amanda::MainLoop::Source is an abstract base class");
+	    return NULL;
 	}
 
 	/* Destructor: just unref the object */