Mercurial > pub > Impl

diff Lib/IMPL/Object/List.pm @ 11:75980091813b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
DOM и навигация
author Sergey
date Wed, 02 Sep 2009 17:47:44 +0400
parents e59f44f75f20
children 818c74b038ae
line wrap: on
line diff
--- a/Lib/IMPL/Object/List.pm	Fri Aug 28 16:26:20 2009 +0400
+++ b/Lib/IMPL/Object/List.pm	Wed Sep 02 17:47:44 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 {