From fd4d5aaf79cb03be467457d1d301a15174e164fb Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Fri, 2 Oct 2020 16:13:51 -0700
Subject: [PATCH] fixed DESTROY

---
 lib/Perl/Tidy/VerticalAligner/Alignment.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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 {
-- 
2.39.5