From b4b0c7e72d7eaee2fbfc7022022c9698323203dd Mon Sep 17 00:00:00 2001 From: ivan Date: Thu, 31 Dec 2009 13:16:41 +0000 Subject: import rt 3.8.7 --- rt/lib/RT/Condition/UserDefined.pm | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) (limited to 'rt/lib/RT/Condition/UserDefined.pm') diff --git a/rt/lib/RT/Condition/UserDefined.pm b/rt/lib/RT/Condition/UserDefined.pm index f4d2e270c..f339e9a80 100644 --- a/rt/lib/RT/Condition/UserDefined.pm +++ b/rt/lib/RT/Condition/UserDefined.pm @@ -1,8 +1,8 @@ # BEGIN BPS TAGGED BLOCK {{{ # # COPYRIGHT: -# -# This software is Copyright (c) 1996-2009 Best Practical Solutions, LLC +# +# This software is Copyright (c) 1996-2009 Best Practical Solutions, LLC # # # (Except where explicitly superseded by other copyright notices) @@ -45,15 +45,10 @@ # those contributions and any derivatives thereof. # # END BPS TAGGED BLOCK }}} - package RT::Condition::UserDefined; - -use RT::Condition::Generic; - +use base 'RT::Condition'; use strict; -use vars qw/@ISA/; -@ISA = qw(RT::Condition::Generic); =head2 IsApplicable @@ -64,6 +59,7 @@ This happens on every transaction. it's always applicable sub IsApplicable { my $self = shift; + local $@; my $retval = eval $self->ScripObj->CustomIsApplicableCode; if ($@) { $RT::Logger->error("Scrip ".$self->ScripObj->Id. " IsApplicable failed: ".$@); -- cgit v1.2.1