From 2a432168c8f3a88fa8fc88dbda153a9337bc5f9e Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Thu, 24 Feb 2022 19:22:26 -0800
Subject: [PATCH] check for undefined arg to parse_args

---
 lib/Perl/Tidy.pm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index a97b7aad..61efa37b 100644
--- a/lib/Perl/Tidy.pm
+++ b/lib/Perl/Tidy.pm
@@ -4226,6 +4226,11 @@ sub parse_args {
     my $quote_char = "";
     my $part       = "";
     my $msg        = "";
+
+    # Check for external call with undefined $body - added to fix
+    # github issue Perl-Tidy-Sweetened issue #23
+    if ( !defined($body) ) { $body = "" }
+
     while (1) {
 
         # looking for ending quote character
-- 
2.39.5