update the process table, where supported, to indicate just what the upgrade monitori...

diff --git a/Crypt/Monkeysphere/MSVA/Monitor.pm b/Crypt/Monkeysphere/MSVA/Monitor.pm
index 237e55b3f5776d3067a7df2369ab384ef1abbd8e..693e61aa0b8c1c1d5146abba708cc293d38cf19c 100644 (file)
--- a/Crypt/Monkeysphere/MSVA/Monitor.pm
+++ b/Crypt/Monkeysphere/MSVA/Monitor.pm
@@ -95,6 +95,8 @@ Would you like to restart the validation agent?");
   sub childmain {
     my $self = shift;
 
+    $0 = 'MSVA (perl) Upgrade Monitor';
+
     $self->{files} = [ $0, values(%INC) ];
     $self->{logger}->log('debug3', "setting up monitoring on these files:\n%s\n", join("\n", @{$self->{files}}));