[Bps-public-commit] r19278 - Shipwright/trunk/lib/Shipwright/Source

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sat Apr 18 04:00:25 2009
New Revision: 19278

Modified:
   Shipwright/trunk/lib/Shipwright/Source/Base.pm

Log:
bug fix: should not change @_

Modified: Shipwright/trunk/lib/Shipwright/Source/Base.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Source/Base.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Source/Base.pm	Sat Apr 18 04:00:25 2009
@@ -213,8 +213,7 @@
 }
 
 sub shipwright_feature {
-    my $name = shift;
-    my @mods = @_;
+    my ( $name, @mods ) = @_;
     for ( my $i = 0 ; $i < @mods ; $i++ ) {
         if ( $mods[$i] eq '-default' ) {
             $i++;    # skip the -default value