# HG changeset patch
# User Heiko Schlittermann (ZARAFA.ctq.de) hs@schlittermann.de
# Date 1303851480 -7200
# Node ID a7624396dd9c692afcddb8272a4799505afe977f
# Parent  84663019017f495b39e2ec5b0b7e092e21a8f240
devno returns now () or undef if stat on a device name fails

diff -r 84663019017f -r a7624396dd9c sbin/ftbackup
--- a/sbin/ftbackup	Fri Apr 15 16:41:26 2011 +0200
+++ b/sbin/ftbackup	Tue Apr 26 22:58:00 2011 +0200
@@ -433,7 +433,8 @@
 }
 
 sub devno($) {
-    my @mm = ((stat shift)[6] >> 8, (stat _)[6] & 0xff);
+    stat shift or return wantarray ? () : undef;
+    my @mm = ((stat _)[6] >> 8, (stat _)[6] & 0xff);
     return wantarray ? @mm : "$mm[0]:$mm[1]";
 }