1 files changed, 2 insertions, 1 deletions
diff --git a/lib/templ/perl-pkg b/lib/templ/perl-pkg
index e29ba05..ef112cd 100755
--- a/lib/templ/perl-pkg
+++ b/lib/templ/perl-pkg
@@ -114,7 +114,8 @@ sub main
     my $vars = readvars();
     mungevars($vars);
     printpb($type, $vars);
+    return 0;
 }
 
 my $type = shift or die qq{$0: please provide "MM" or "MB" as argument\n};
-main($type);
+exit main($type);