From: Andrew Ruthven <andrew@etc.gen.nz>
Date: Thu, 14 Jun 2012 08:38:25 +0000 (+1200)
Subject: Postpone changing the name so that pod2usage still works.
X-Git-Tag: 0.10.1~3
X-Git-Url: http://git.etc.gen.nz/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9a096c2c72811694f8e3cb528ce42a77e68cfb80;p=mythtv-status.git

Postpone changing the name so that pod2usage still works.
---

diff --git a/bin/mythtv-status b/bin/mythtv-status
index 44d245d..3451776 100755
--- a/bin/mythtv-status
+++ b/bin/mythtv-status
@@ -40,8 +40,6 @@ if ($@ && $@ !~ /^No config file found/) {
   die $@;
 }
 
-$0 = "mythtv-status - parent";
-
 # Some sane defaults.
 $c->{'host'} ||= "localhost";
 $c->{'port'} ||= "6544";
@@ -131,6 +129,8 @@ GetOptions(
 pod2usage(verbose => 1)
   if $help;
 
+$0 = "mythtv-status - parent";
+
 # Get the email address into a format we can use.
 @{ $c->{'email'} } = split(',', join(',', @{ $c->{'email'} }));