[Bps-public-commit] Shipwright branch, master, updated. 7cfb38b09d15df51e56165f9db50624a2a1f2563

[sunnavy at bestpractical.com]

The branch, master has been updated
       via  7cfb38b09d15df51e56165f9db50624a2a1f2563 (commit)
      from  ebb4d662ee253eb1d4ba52b0ce892e849558bcd1 (commit)

Summary of changes:
 lib/Shipwright/Source/Base.pm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

- Log -----------------------------------------------------------------
commit 7cfb38b09d15df51e56165f9db50624a2a1f2563
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Sun Jul 26 11:28:30 2009 +0800

    it's not so safe to require Data::Dumper at END, let's use it in the beginning

diff --git a/lib/Shipwright/Source/Base.pm b/lib/Shipwright/Source/Base.pm
index 7264616..3ab61d1 100644
--- a/lib/Shipwright/Source/Base.pm
+++ b/lib/Shipwright/Source/Base.pm
@@ -186,6 +186,7 @@ sub _follow {
                 $makefile =~
                     s/^\s*test_requires_from(?!\w)/shipwright_test_requires_from/mg;
                 my $shipwright_makefile = <<'EOF';
+use Data::Dumper;
 my $shipwright_req = {};
 
 sub _shipwright_requires {
@@ -311,7 +312,6 @@ sub shipwright_features {
 }
 
 END {
-require Data::Dumper;
 open my $tmp_fh, '>', 'shipwright_prereqs';
 print $tmp_fh Data::Dumper->Dump( [$shipwright_req], [qw/require/] );
 }

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