use Fcntl qw(S_ISBLK S_ISCHR S_ISFIFO SEEK_SET S_ISREG S_ISFIFO S_IMODE S_ISCHR S_ISBLK S_ISSOCK);
use Getopt::Long;
use Lchown;
-use Unix::Mknod;
+use Unix::Mknod qw(:all);
my %extraopts = ( 'threaded' => 0, 'debug' => 0 );
my($use_real_statfs, $pidfile);
sub x_link { return link(fixup(shift),fixup(shift)) ? 0 : -$! }
sub x_chown {
my ($fn) = fixup(shift);
+ local $!;
print "nonexistent $fn\n" unless -e $fn;
my ($uid,$gid) = @_;
lchown($uid, $gid, $fn);