[Bps-public-commit] Shipwright branch, master, updated. 51e3f32d60ec3b106d9052cc41da55d01283d098

[? sunnavy]

The branch, master has been updated
       via  51e3f32d60ec3b106d9052cc41da55d01283d098 (commit)
      from  bee2915663dcc0575f4a28e3142d1e23a071a472 (commit)

Summary of changes:
 lib/Shipwright/Backend/Base.pm |    2 +-
 t/00.load.t                    |    2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

- Log -----------------------------------------------------------------
commit 51e3f32d60ec3b106d9052cc41da55d01283d098
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Sun Feb 27 09:26:51 2011 +0800

    perl 5.13+ depreciates qw()

diff --git a/lib/Shipwright/Backend/Base.pm b/lib/Shipwright/Backend/Base.pm
index 0e8dbcf..f9ce52d 100644
--- a/lib/Shipwright/Backend/Base.pm
+++ b/lib/Shipwright/Backend/Base.pm
@@ -157,7 +157,7 @@ sub _install_clean_inc {
     my $dir = shift;
     my $util_inc_path = catdir( $dir, 'inc', 'Shipwright', 'Util' );
     make_path( $util_inc_path );
-    for my $mod qw(CleanINC PatchModuleBuild) {
+    for my $mod ( qw/CleanINC PatchModuleBuild/ ) {
         rcopy( Module::Info->new_from_module("Shipwright::Util::$mod")->file,
             $util_inc_path )
           or confess_or_die "copy $mod failed: $!";
diff --git a/t/00.load.t b/t/00.load.t
index 59a0951..1e1cc5e 100644
--- a/t/00.load.t
+++ b/t/00.load.t
@@ -1,6 +1,6 @@
 use Test::More;
 use File::Spec::Functions qw/catfile catdir/;
-use File::Basename qw( dirname );
+use File::Basename 'dirname';
 
 my $manifest = catdir( dirname(__FILE__), '..', 'MANIFEST' );
 plan skip_all => 'MANIFEST does not exist' unless -e $manifest;

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