Mercurial > pub > Impl

diff Lib/IMPL/clone.pm @ 181:47dac58691ee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
New templating system, small fixes
author sourcer
date Thu, 26 Jan 2012 01:15:57 +0400
parents 9057e4b95d10
children 4d0e1962161c
line wrap: on
line diff
--- a/Lib/IMPL/clone.pm	Fri Dec 30 23:40:00 2011 +0300
+++ b/Lib/IMPL/clone.pm	Thu Jan 26 01:15:57 2012 +0400
@@ -49,7 +49,7 @@
 		
 		return $_[0] unless ref $_[0];
 		
-		return $_[1]->{refaddr($_[0])} || ($handlers{reftype($_[0])} || sub { die "Unknown reftype " . reftype($_[0])} )->(@_);
+		return $_[1]->{refaddr($_[0])} || (UNIVERSAL::can($_[0],'_clone') || $handlers{reftype($_[0])} || sub { die "Unknown reftype " . reftype($_[0])} )->(@_);
 	}
 	
 }