From 9a096c2c72811694f8e3cb528ce42a77e68cfb80 Mon Sep 17 00:00:00 2001
From: Andrew Ruthven <andrew@etc.gen.nz>
Date: Thu, 14 Jun 2012 20:38:25 +1200
Subject: [PATCH] Postpone changing the name so that pod2usage still works.

---
 bin/mythtv-status | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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'} }));
 
-- 
2.30.2