Subversion Repositories DevTools

Rev

Rev 379 | Rev 383 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 379 Rev 381
Line 792... Line 792...
792
    my $pkgPath = $svn->Path();
792
    my $pkgPath = $svn->Path();
793
    my $ciComment = "$pkgPath: Checkin by Svn Import";
793
    my $ciComment = "$pkgPath: Checkin by Svn Import";
794
    $ciComment .= "\n" . $opt_log if ( $opt_log );
794
    $ciComment .= "\n" . $opt_log if ( $opt_log );
795
    $ciComment =~ s~\r\n~\n~g;
795
    $ciComment =~ s~\r\n~\n~g;
796
    $svn->SvnCi ('comment' => $ciComment, 'allowSame' => 1 );
796
    $svn->SvnCi ('comment' => $ciComment, 'allowSame' => 1 );
797
    Message ("Repository Ref: " . $svn->RmRef);
797
    Message ("Repository Ref: " . $svn->RmRef) unless( $opt_label );
798
    $svn->setRepoProperty('svn:author', $opt_author) if (defined ($opt_author));
798
    $svn->setRepoProperty('svn:author', $opt_author) if (defined ($opt_author));
799
    $svn->setRepoProperty('svn:date', $opt_date) if (defined ($opt_date));
799
    $svn->setRepoProperty('svn:date', $opt_date) if (defined ($opt_date));
800
 
800
 
801
    #
801
    #
802
    #   Label the result
802
    #   Label the result