#
# COPYRIGHT:
#
-# This software is Copyright (c) 1996-2014 Best Practical Solutions, LLC
+# This software is Copyright (c) 1996-2015 Best Practical Solutions, LLC
# <sales@bestpractical.com>
#
# (Except where explicitly superseded by other copyright notices)
# on failure and reset values only in our original
# process
my ($oldv_dbh, $oldv_rth);
- my $dbh = $RT::Handle->dbh;
+ my $dbh = $RT::Handle ? $RT::Handle->dbh : undef;
$oldv_dbh = $dbh->{'InactiveDestroy'} if $dbh;
$dbh->{'InactiveDestroy'} = 1 if $dbh;
- $oldv_rth = $RT::Handle->{'DisconnectHandleOnDestroy'};
- $RT::Handle->{'DisconnectHandleOnDestroy'} = 0;
+ $oldv_rth = $RT::Handle->{'DisconnectHandleOnDestroy'} if $RT::Handle;
+ $RT::Handle->{'DisconnectHandleOnDestroy'} = 0 if $RT::Handle;
my ($reader, $writer);
pipe( $reader, $writer );
$err =~ s/^Stack:.*$//ms;
if ( $our_pid == $$ ) {
$dbh->{'InactiveDestroy'} = $oldv_dbh if $dbh;
- $RT::Handle->{'DisconnectHandleOnDestroy'} = $oldv_rth;
+ $RT::Handle->{'DisconnectHandleOnDestroy'} = $oldv_rth if $RT::Handle;
die "System Error: $err";
} else {
print $writer "System Error: $err";
warn $response if $response;
$dbh->{'InactiveDestroy'} = $oldv_dbh if $dbh;
- $RT::Handle->{'DisconnectHandleOnDestroy'} = $oldv_rth;
+ $RT::Handle->{'DisconnectHandleOnDestroy'} = $oldv_rth if $RT::Handle;
return $want? (@res) : $res[0];
}