[Bps-public-commit] Test-Script-Run branch, master, updated. cacdb622692257ee5d6d866615ae8218cc265767

[spang at bestpractical.com]

The branch, master has been updated
       via  cacdb622692257ee5d6d866615ae8218cc265767 (commit)
      from  708dc86cefd0ea10d3fa6de8b6e1519eafba3dfb (commit)

Summary of changes:
 lib/Test/Script/Run.pm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

- Log -----------------------------------------------------------------
commit cacdb622692257ee5d6d866615ae8218cc265767
Author: Christine Spang <spang at bestpractical.com>
Date:   Sat Aug 29 11:27:34 2009 -0400

    Bump Test::Builder::Level up for run_output_matches so we get the right line number in failures

diff --git a/lib/Test/Script/Run.pm b/lib/Test/Script/Run.pm
index d71af9d..bea14db 100644
--- a/lib/Test/Script/Run.pm
+++ b/lib/Test/Script/Run.pm
@@ -264,7 +264,7 @@ sub run_output_matches {
     my ( $script, $args, $expected, $stderr, $msg ) = @_;
     local $Test::Builder::Level = $Test::Builder::Level + 1;
     lives_and {
-        local $Test::Builder::Level = $Test::Builder::Level + 4;
+        local $Test::Builder::Level = $Test::Builder::Level + 5;
         is_script_output( $script, $args, $expected, $stderr, $msg );
     };
 }

-----------------------------------------------------------------------