@ 11d698f

260607.4 · 45ff5fe77dbd96f7332f31943102291f878f30b8

Make CVE changes

reading declarations

Changes to t/forbidden-options.t. All files

t/forbidden-options.t

@@ -32,7 +32,7 @@ sub _test_project_ackrc {     local $Test::Builder::Level = $Test::Builder::Level + 1;      return subtest subtest_name() => sub {-        plan tests => 3;+        plan tests => 4;          my $base_obj = File::Temp->newdir;         my $base = $base_obj->dirname;@@ -51,19 +51,20 @@ sub _test_project_ackrc {          safe_chdir( $projectdir ); -        # All three of these options are illegal in a project .ackrc.-        for my $option ( qw( match output pager ) ) {+        # All four of these options are illegal in a project .ackrc.+        for my $option ( qw( match output pager follow ) ) {             subtest $option => sub {                 plan tests => 2;                  # /tmp/x/project/.ackrc-                _create_ackrc( $projectdir, "--$option=$option" );+                _create_ackrc( $projectdir, "--$option=$option" ) unless 'follow' eq $option;+                _create_ackrc( $projectdir, "--$option"         ) if     'follow' eq $option;                  # Explicitly pass --env or else the test will ignore .ackrc.                 my ( $stdout, $stderr ) = run_ack_with_stderr( '-f', '--env' );                  is_empty_array( $stdout, 'No output with the errors' );-                if ( $option eq 'pager' ) {+                if ( ($option eq 'pager') || ($option eq 'follow') ) {                     first_line_like( $stderr, qr/\QOption --$option is forbidden in project .ackrc files/, "$option illegal" );                 }                 else {