rt 4.2.13 ticket#13852

[freeside.git] / rt / lib / RT / Shredder / Plugin / Base.pm

diff --git a/rt/lib/RT/Shredder/Plugin/Base.pm b/rt/lib/RT/Shredder/Plugin/Base.pm
index a8acf39..be36cdc 100644 (file)
--- 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-2015 Best Practical Solutions, LLC
+# This software is Copyright (c) 1996-2016 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