| Line 774... |
Line 774... |
| 774 |
unless ( $opt{noupdatecheck} )
|
774 |
unless ( $opt{noupdatecheck} )
|
| 775 |
{
|
775 |
{
|
| 776 |
$self->SvnInfo( $self->{WS} , 'InfoWs' );
|
776 |
$self->SvnInfo( $self->{WS} , 'InfoWs' );
|
| 777 |
$self->SvnInfo( $self->FullWs, 'InfoRepo' );
|
777 |
$self->SvnInfo( $self->FullWs, 'InfoRepo' );
|
| 778 |
|
778 |
|
| 779 |
my $wsLastChangedRev = $self->{'InfoWs'}{'Last Changed Rev'} || Error ("SvnCopyWs: Bad info for Workspace");
|
779 |
my $wsLastChangedRev = $self->{'InfoWs'}{'Last Changed Rev'} || Error ("SvnCopyWs: Bad info for Workspace. No 'Last Changed Rev'");
|
| 780 |
my $repoLastChangedRev = $self->{'InfoRepo'}{'Last Changed Rev'} || Error ("SvnCopyWs: Bad info for Repository");
|
780 |
my $repoLastChangedRev = $self->{'InfoRepo'}{'Last Changed Rev'} || Error ("SvnCopyWs: Bad info for Repository. No 'Last Changed Rev'");
|
| 781 |
|
781 |
|
| 782 |
Verbose("WS Rev : $wsLastChangedRev");
|
782 |
Verbose("WS Rev : $wsLastChangedRev");
|
| 783 |
Verbose("Repo Rev: $repoLastChangedRev");
|
783 |
Verbose("Repo Rev: $repoLastChangedRev");
|
| 784 |
Error ('SvnCopyWs: The repository has been modified since the workspace was last updated.',
|
784 |
Error ('SvnCopyWs: The repository has been modified since the workspace was last updated.',
|
| 785 |
'Possibly caused by a commit without an update.',
|
785 |
'Possibly caused by a commit without an update.',
|