Mercurial > pub > Impl

comparison Lib/IMPL/Serialization.pm @ 207:f534a60d5b01

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
minor changes
author sergey
date Fri, 04 May 2012 02:09:13 +0400
parents 5146e17a7b76
children c477f24f1980
comparison
equal deleted inserted replaced
206:c8fe3f84feba 207:f534a60d5b01
282 { 282 {
283 my %classes; 283 my %classes;
284 sub _load_class { 284 sub _load_class {
285 return if $classes{$_[0]}; 285 return if $classes{$_[0]};
286 286
287 die new IMPL::Exception("Invalid class name",$_[0]) unless $_[0] =~ m/^\w+(\:\:\w+)*$/; 287 die new IMPL::Exception("Invalid class name",$_[0]) unless $_[0] =~ m/^(\w+(?:\:\:\w+)*)$/;
288 288
289 eval "require $_[0]"; 289 eval "require $1";
290 $classes{$_[0]} = 1; 290 $classes{$_[0]} = 1;
291 } 291 }
292 } 292 }
293 293
294 sub DefaultSurrogateHelper { 294 sub DefaultSurrogateHelper {