[svk-commit] r2429 - in trunk: lib/SVK/Command

[nobody at bestpractical.com]

Author: jesse
Date: Sat Jul 14 00:00:17 2007
New Revision: 2429

Modified:
   trunk/   (props changed)
   trunk/lib/SVK/Command/Pull.pm

Log:
 r60632 at pinglin:  jesse | 2007-07-13 18:29:11 -0400
 * Added a --no-sync option to pull


Modified: trunk/lib/SVK/Command/Pull.pm
==============================================================================
--- trunk/lib/SVK/Command/Pull.pm	(original)
+++ trunk/lib/SVK/Command/Pull.pm	Sat Jul 14 00:00:17 2007
@@ -50,6 +50,8 @@
 # END BPS TAGGED BLOCK }}}
 package SVK::Command::Pull;
 use strict;
+use warnings;
+
 use SVK::Version;  our $VERSION = $SVK::VERSION;
 
 use base qw( SVK::Command::Update );
@@ -58,6 +60,7 @@
 sub options {
    ('a|all'		=> 'all',
     'force-incremental' => 'force_incremental',
+    'no-sync'       => 'no_sync',
     'l|lump'		=> 'lump');
 }
 
@@ -90,7 +93,7 @@
     }
 
 
-    $self->{sync}++;
+    $self->{sync}++ unless $self->{'no_sync'};
     $self->{merge}++;
 
     $self->SUPER::parse_arg (@arg);