diff options
Diffstat (limited to 'rt/lib/RT/Shredder/Plugin/Base.pm')
| -rw-r--r-- | rt/lib/RT/Shredder/Plugin/Base.pm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/rt/lib/RT/Shredder/Plugin/Base.pm b/rt/lib/RT/Shredder/Plugin/Base.pm index 7ada97e48..30fa3f320 100644 --- a/rt/lib/RT/Shredder/Plugin/Base.pm +++ b/rt/lib/RT/Shredder/Plugin/Base.pm @@ -2,7 +2,7 @@ # # 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) @@ -61,14 +61,14 @@ sub new { my $proto = shift; my $self = bless( {}, ref $proto || $proto ); - $self->_Init( @_ ); - return $self; + return $self->_Init( @_ ); } sub _Init { my $self = shift; $self->{'opt'} = { @_ }; + return $self; } =head1 USAGE @@ -125,8 +125,9 @@ sub HasSupportForArgs foreach my $a( @args ) { push @unsupported, $a unless grep $_ eq $a, $self->SupportArgs; } - return( 1 ) unless @unsupported; - return( 0, "Plugin doesn't support argument(s): @unsupported" ) if @unsupported; + return( 0, "Plugin doesn't support argument(s): @unsupported" ) + if @unsupported; + return( 1 ); } =head3 TestArgs |