[Bps-public-commit] r13123 - in Shipwright/trunk: lib/Shipwright/Script

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue Jun 10 15:26:06 2008
New Revision: 13123

Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/lib/Shipwright/Script/Flags.pm

Log:
 r13219 at sunnavys-mb:  sunnavy | 2008-06-10 23:32:05 +0800
 reserve keywords starting as __ for flag names


Modified: Shipwright/trunk/lib/Shipwright/Script/Flags.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script/Flags.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script/Flags.pm	Tue Jun 10 15:26:06 2008
@@ -34,6 +34,11 @@
 
     $name = $self->name;
 
+    if ( $name =~ /^__/ ) {
+        print "$name can't start as __\n";
+        return;
+    }
+
     my $shipwright = Shipwright->new(
         repository => $self->repository,
         log_level  => $self->log_level,