--- trunk/svn2cvs.pl 2004/03/11 16:48:38 10 +++ trunk/svn2cvs.pl 2004/03/13 15:44:04 11 @@ -62,7 +62,7 @@ } else { my $msg="subversion revision $rev commited to CVS"; print "$msg\n"; - system "$cvs commit -m \"$msg\" $path" || die "cvs commit of $path failed: $!"; + system "$cvs commit -m '$msg' $path" || die "cvs commit of $path failed: $!"; } } @@ -185,28 +185,28 @@ } my $msg = $e->{'msg'}; - $msg =~ s/"/\\"/g; # quote " + $msg =~ s/'/\\'/g; # quote " if ($action =~ /M/) { print "svn2cvs: modify $path -- nop\n"; } elsif ($action =~ /A/) { if (-d $path) { chdir($path) || die "can't cd into dir $path for import: $!"; - log_system("$cvs import -d -m \"$msg\" $CVSREP/$path svn r$rev", "cvs import of $path failed"); + log_system("$cvs import -d -m '$msg' $CVSREP/$path svn r$rev", "cvs import of $path failed"); chdir("$TMPDIR") || die "can't cd to $TMPDIR/$CVSREP: $!"; log_system("$cvs checkout $CVSREP/$path", "cvs checkout of imported dir $path failed"); chdir("$TMPDIR/$CVSREP") || die "can't cd back to $TMPDIR/$CVSREP: $!"; } else { - log_system("$cvs add -m \"$msg\" $path", "cvs add of $path failed"); + log_system("$cvs add -m '$msg' $path", "cvs add of $path failed"); } } elsif ($action =~ /D/) { - log_system("$cvs delete -m \"$msg\" $path", "cvs delete of $path failed"); + log_system("$cvs delete -m '$msg' $path", "cvs delete of $path failed"); } else { print "WARNING: action $action not implemented on $path. Bug or missing feature of $0\n"; } # now commit changes - log_system("$cvs commit -m \"$msg\" $path", "cvs commit of $path failed"); + log_system("$cvs commit -m '$msg' $path", "cvs commit of $path failed"); }