X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=rt%2Flib%2FRT%2FShredder%2FPlugin%2FBase.pm;fp=rt%2Flib%2FRT%2FShredder%2FPlugin%2FBase.pm;h=30fa3f320579964b5bd1e4f902a43b0d817e1df0;hb=1c538bfabc2cd31f27067505f0c3d1a46cba6ef0;hp=a8acf394531d71dca86f9d6f9dc00222320f544b;hpb=4f5619288413a185e9933088d9dd8c5afbc55dfa;p=freeside.git

diff --git a/rt/lib/RT/Shredder/Plugin/Base.pm b/rt/lib/RT/Shredder/Plugin/Base.pm
index a8acf3945..30fa3f320 100644
--- a/rt/lib/RT/Shredder/Plugin/Base.pm
+++ b/rt/lib/RT/Shredder/Plugin/Base.pm
@@ -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