From f4e6d12be63deea86cf0c064362850182f3f1d71 Mon Sep 17 00:00:00 2001
From: Justin Davis <jrcd83@gmail.com>
Date: Sat, 14 Jan 2012 16:31:39 -0500
Subject: Explicit return value in templ/perk-pkg.

---
 lib/templ/perl-pkg | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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);
-- 
cgit v1.2.3-24-g4f1b