Author: mark
Date: 2009-10-30 15:12:39 -0400 (Fri, 30 Oct 2009)
New Revision: 126

Modified:
   branches/sendr/zetaback.in
Log:
Another fix for receiving an entire pool

Modified: branches/sendr/zetaback.in
===================================================================
--- branches/sendr/zetaback.in	2009-10-29 18:19:16 UTC (rev 125)
+++ branches/sendr/zetaback.in	2009-10-30 19:12:39 UTC (rev 126)
@@ -667,8 +667,12 @@
       # We need to create filesystems as deep as the poolname and receive to
       # that in order to preserve the exact layout
       my @fsparts = split(/\//, $fsname);
-      my $poolname = $fsparts[0];
-      zfs_create_intermediate_filesystems("$storefs/$poolname/");
+      if ($fsparts > 1) {
+        my $poolname = $fsparts[0];
+        zfs_create_intermediate_filesystems("$storefs/$poolname/");
+      } else {
+        zfs_create_intermediate_filesystems("$storefs/");
+      }
       print "Running __ZFS__ recv $recvopt $storefs/$poolname\n" if ($DEBUG);
       open(LBACKUP, "|__ZFS__ recv $recvopt $storefs/$poolname $DEBUGLOG");
     } else {