# HG changeset patch
# User Heiko Schlittermann (VIC) <hs@schlittermann.de>
# Date 1312360911 -7200
# Node ID 100c97dc02ca99749c8cf3d37f72d22813211992
# Parent  0b6b92d1eb65801f9e49815867f86b0a49b5f9a4
dirname instead of abs_path $x/..

diff -r 0b6b92d1eb65 -r 100c97dc02ca bin/imager.restore
--- 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";