From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Fri, 2 Oct 2020 23:13:51 +0000 (-0700)
Subject: fixed DESTROY
X-Git-Tag: 20201001.01~26
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=fd4d5aaf79cb03be467457d1d301a15174e164fb;p=perltidy.git

fixed DESTROY
---

diff --git a/lib/Perl/Tidy/VerticalAligner/Alignment.pm b/lib/Perl/Tidy/VerticalAligner/Alignment.pm
index 749be2b6..70a1a6d8 100644
--- a/lib/Perl/Tidy/VerticalAligner/Alignment.pm
+++ b/lib/Perl/Tidy/VerticalAligner/Alignment.pm
@@ -36,7 +36,7 @@ sub AUTOLOAD {
     # some diagnostic information.  This sub should never be called
     # except for a programming error.
     our $AUTOLOAD;
-    return if ( $AUTOLOAD eq 'DESTROY' );
+    return if ( $AUTOLOAD =~/\bDESTROY$/ );
     my ( $pkg, $fname, $lno ) = caller();
     print STDERR <<EOM;
     ======================================================================
@@ -49,6 +49,11 @@ EOM
     exit 1;
 }
 
+sub DESTROY {
+
+    # required to avoid call to AUTOLOAD in some versions of perl
+}
+
 sub get_column { my $self = shift; return $self->{_column} }
 
 sub get_starting_column {