# HG changeset patch
# User Heiko Schlittermann (JUMPER) <hs@schlittermann.de>
# Date 1313485498 -7200
# Node ID f837948e43a469890225f5cf82b4ccf2b3916b6b
# Parent  2d3d0e2e81e7b6d07a2eaf855f3df4e596956712# Parent  100c97dc02ca99749c8cf3d37f72d22813211992
[merged]

diff -r 2d3d0e2e81e7 -r f837948e43a4 bin/imager.restore
--- a/bin/imager.restore	Mon Aug 15 15:50:38 2011 +0200
+++ b/bin/imager.restore	Tue Aug 16 11:04:58 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";