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

diff --git a/t/filter_example.t b/t/filter_example.t
index 1e27fb5f63e2712930d55c42da71c36e40e0a653..d6b63942e599c2558eaf5d8b1e175b96e90321ae 100755 (executable)
--- 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
 );