Fix cvsimport warning when called without --no-cvs-direct
authorJohannes Schindelin <Johannes.Schindelin@gmx.de>
Tue, 18 Oct 2005 18:35:16 +0000 (11:35 -0700)
committerJunio C Hamano <junkio@cox.net>
Tue, 18 Oct 2005 18:35:16 +0000 (11:35 -0700)
Perl was warning that $opt_p was undefined in that case.

Signed-off-by: Johannes Schindelin <Johannes.Schindelin@gmx.de>
Signed-off-by: Junio C Hamano <junkio@cox.net>
git-cvsimport.perl

index 0621dc3e2f6d8de2f0019164d57cc8916deb6b98..bbb83fb71cab2d177e98a1c648974bb2bca4607a 100755 (executable)
@@ -487,7 +487,7 @@ unless($pid) {
        my @opt;
        @opt = split(/,/,$opt_p) if defined $opt_p;
        unshift @opt, '-z', $opt_z if defined $opt_z;
-       unless ($opt_p =~ m/--no-cvs-direct/) {
+       unless (defined($opt_p) && $opt_p =~ m/--no-cvs-direct/) {
                push @opt, '--cvs-direct';
        }
        exec("cvsps",@opt,"-u","-A",'--root',$opt_d,$cvs_tree);