--- a/bin/imager.restore	Mon Aug 01 13:02:09 2011 +0200
+++ b/bin/imager.restore	Wed Aug 03 10:41:51 2011 +0200
@@ -13,7 +13,6 @@
 use strict;
 use warnings;
 use File::Basename;
-use Cwd qw(abs_path);
 use autodie qw(:all);
 use Pod::Usage;
 use Getopt::Long;
@@ -116,7 +115,7 @@
 }
 
 sub find_data_dir {
-    for (my $dir = shift ; $dir ne "/" ; $dir = abs_path("$dir/..")) {
+    for (my $dir = shift ; $dir ne "/" ; $dir = dirname $dir) {
         return "$dir/data" if -d "$dir/data" and -d "$dir/idx";
     }
     die ME . ": no data directory found!\n";