--- /z/dosbin/install.pl	2011-06-06 11:49:11.000000000 +0000
+++ /tmp/install.pl	2012-09-11 14:23:12.046159852 +0000
@@ -473,7 +473,7 @@
 
         # Get size of disk in sectors.
         my $sys_hda = $hda;
-        $sys_hda =~ s/\//!/g;
+        $sys_hda =~ s/.*\///g;
         my $size_file = "/sys/block/$sys_hda/size";
         open SIZE, $size_file
             or die "Unable to open $size_file for reading: $^E";
@@ -1691,29 +1691,29 @@
             : $cmd);
 }
 
-if ($is_linux) {
-    # On Linux, we (re-)create the device nodes after modifying the
-    # partition table.
-    my $hda = readlink ('/dev/dsk');
-    defined $hda
-        or die "readlink /dev/dsk failed: $^E";
-    0 == system 'make-blkdev-nodes', $hda
-        or die "make-blkdev-nodes $hda failed: $?";
-}
-else {
-    # If partition table has changed, reboot.
-    print "\nRe-checking partition table...";
-    if ($partition_table ne partition_table (1) ||
-        ($partition_table eq '' && defined $is_fdisk)) {
-        print "changed.  Rebooting...\n";
-        sleep 2;
-        system ('fdisk /reboot');
-        die "Internal error";
-    }
-    else {
-        print "no change.  Continuing.\n";
-    }
-}
+#if ($is_linux) {
+#    # On Linux, we (re-)create the device nodes after modifying the
+#    # partition table.
+#    my $hda = readlink ('/dev/dsk');
+#    defined $hda
+#        or die "readlink /dev/dsk failed: $^E";
+#    0 == system 'make-blkdev-nodes', $hda
+#        or die "make-blkdev-nodes $hda failed: $?";
+#}
+#else {
+#    # If partition table has changed, reboot.
+#    print "\nRe-checking partition table...";
+#    if ($partition_table ne partition_table (1) ||
+#        ($partition_table eq '' && defined $is_fdisk)) {
+#        print "changed.  Rebooting...\n";
+#        sleep 2;
+#        system ('fdisk /reboot');
+#        die "Internal error";
+#    }
+#    else {
+#        print "no change.  Continuing.\n";
+#    }
+#}
 
 # Run formatting command, if any.
 my $format_cmd = $u->{'_meta'}->{'format_cmd'};