From 5d3730ffed884faf7a9cebdaa4fffa6b9c2a4820 Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Tue, 8 Sep 2020 10:40:11 -0700 Subject: [PATCH] simplify AUTOLOAD as much as possible --- lib/Perl/Tidy.pm | 4 ++-- lib/Perl/Tidy/Formatter.pm | 3 ++- lib/Perl/Tidy/HtmlWriter.pm | 4 ++-- lib/Perl/Tidy/Tokenizer.pm | 1 + lib/Perl/Tidy/VerticalAligner.pm | 4 ++-- t/snippets/perltidy_random_parameters.pl | 2 +- 6 files changed, 10 insertions(+), 8 deletions(-) diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm index 90d13ae3..36dbcfd2 100644 --- a/lib/Perl/Tidy.pm +++ b/lib/Perl/Tidy.pm @@ -123,6 +123,7 @@ sub AUTOLOAD { # some diagnostic information. This sub should never be called # except for a programming error. our $AUTOLOAD; + return if ($AUTOLOAD eq 'DESTROY'); my ( $pkg, $fname, $lno ) = caller(); print STDERR <10); print STDERR <