[svk-commit] r3134 - branches/git-storage/lib/SVK

[nobody at bestpractical.com]

Author: clsung
Date: Wed Nov  5 04:58:50 2008
New Revision: 3134

Modified:
   branches/git-storage/lib/SVK/XD.pm

Log:
- call add_directory with '', not -1
  - now pass the 3rd test of t/11checkout.t

Modified: branches/git-storage/lib/SVK/XD.pm
==============================================================================
--- branches/git-storage/lib/SVK/XD.pm	(original)
+++ branches/git-storage/lib/SVK/XD.pm	Wed Nov  5 04:58:50 2008
@@ -1003,11 +1003,12 @@
             $dir = $dir->parent;
         } while ( $dir ne '.' and $dir ne '..' );
     }
+    $editor->open_root();
     for my $dir (sort keys %dirs) {
-        my $botan = $editor->add_directory ($dir, -1, undef, undef);
+        my $botan = $editor->add_directory ($dir, '', undef, undef);
         for my $file (sort @{$dirs{$dir}}) {
             next unless $file;
-            $editor->add_file($file);
+            $editor->add_file($file, $dir);
 #	my $fname = $self->{files}{$_}->filename;
 #	my $fh;
 #	$edit->add_file ($_)