check for undefined arg to parse_args

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index a97b7aad43603081bbf509ae4c19ea88806828a5..61efa37b87a1a377306debc2e038756b679ea1cb 100644 (file)
--- 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