From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sat, 17 Nov 2018 20:27:26 +0000 (-0800)
Subject: RT#127679, added arg -npro to avoid reading unexpected .perltidyrc
X-Git-Tag: 20181119~7
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=2176b2fe3471a42cb9ee468a0954ddbb048586fa;p=perltidy.git

RT#127679, added arg -npro to avoid reading unexpected .perltidyrc
---

diff --git a/t/filter_example.t b/t/filter_example.t
index 1e27fb5f..d6b63942 100755
--- a/t/filter_example.t
+++ b/t/filter_example.t
@@ -48,13 +48,12 @@ my $output;
 my $stderr_string;
 my $errorfile_string;
 my $err = Perl::Tidy::perltidy(
-    argv => '',
+    argv => '-npro',  # fix for RT#127679, avoid reading unwanted .perltidyrc
     prefilter =>
       sub { $_ = $_[0]; s/^\s*method\s+(\w.*)/sub METHOD_$1/gm; return $_ },
     postfilter  => sub { $_ = $_[0]; s/sub\s+METHOD_/method /gm; return $_ },
     source      => \$source,
     destination => \$output,
-    argv      => '',                   # for safety; hide any ARGV from perltidy
     stderr    => \$stderr_string,
     errorfile => \$errorfile_string,   # not used when -se flag is set
 );