Fix for #1038

dmwm · Jul 26, 2016 · e0593fc · e0593fc
1 parent 1f4a078
commit e0593fc
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/perl_lib/PHEDEX/Core/Agent/DB.pm b/perl_lib/PHEDEX/Core/Agent/DB.pm
@@ -137,7 +137,7 @@ sub identifyAgent
   if ($dbh->{private_phedex_newconn})
   {
     my ($ident) = qx(ps -p $$ wwwwuh 2>/dev/null)
-      or self->Fatal("Unable to identify agent process with 'ps -p $$ wwwwuh 2>/dev/null'");
+      or $self->Fatal("Unable to identify agent process with 'ps -p $$ wwwwuh 2>/dev/null'");
     chomp($ident) if $ident;
     &dbexec($dbh, qq{
           insert into t_agent_log