--- 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]";
 }