Mercurial > pub > Impl

comparison Lib/IMPL/Serialization.pm @ 219:c477f24f1980

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sync
author sergey
date Tue, 21 Aug 2012 17:13:47 +0400
parents f534a60d5b01
children 4ddb27ff4a0b
comparison
equal deleted inserted replaced
218:358f867712b4 219:c477f24f1980
180 if ($rhProps->{'refid'}) { 180 if ($rhProps->{'refid'}) {
181 my $refObj = $this->{$Context}->{$rhProps->{'refid'}}; 181 my $refObj = $this->{$Context}->{$rhProps->{'refid'}};
182 die new Exception("A reference to a not existing object found") if not $refObj; 182 die new Exception("A reference to a not existing object found") if not $refObj;
183 my $rhCurrentObj = $this->{$CurrentObject}; 183 my $rhCurrentObj = $this->{$CurrentObject};
184 184
185 die new Exception("Found a reference to an object as a root of an object's graph") if not $rhCurrentObj; 185 die new Exception("The root object can't be a reference") if not $rhCurrentObj;
186 186
187 if ($rhCurrentObj->{'Data'}) { 187 if ($rhCurrentObj->{'Data'}) {
188 die new Exception("Invalid serializaed data","Plain deserialization data for an object already exist") if not ref $rhCurrentObj->{'Data'}; 188 die new Exception("Invalid serializaed data","Plain deserialization data for an object already exist") if not ref $rhCurrentObj->{'Data'};
189 push @{$rhCurrentObj->{'Data'}}, $name,$refObj; 189 push @{$rhCurrentObj->{'Data'}}, $name,$refObj;
190 } else { 190 } else {