Mercurial > pub > Impl

diff Lib/IMPL/Object/List.pm @ 13:bb8d67f811ea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge heads
author Sergey
date Wed, 02 Sep 2009 23:11:14 +0400
parents 75980091813b
children 818c74b038ae
line wrap: on
line diff
--- a/Lib/IMPL/Object/List.pm	Mon Aug 31 01:37:43 2009 +0400
+++ b/Lib/IMPL/Object/List.pm	Wed Sep 02 23:11:14 2009 +0400
@@ -41,7 +41,7 @@
 sub InsertAt {
     my ($this,$index,@val) = @_;
     
-    splice @$this,$index,0,@val;
+    splice @$this,($index||0),0,@val;
 }
 
 sub RemoveAt {