Package member key is the fully-qualified name; fix error in get

[debbugs.git] / scripts / age-1

diff --git a/scripts/age-1 b/scripts/age-1
index cc2e72da1dd91618a41553ae1477470a3c76c2b0..65c39d7f3f5516e751d66e2be93059a8ee172e0b 100755 (executable)
--- a/scripts/age-1
+++ b/scripts/age-1
@@ -1,7 +1,7 @@
 #!/bin/sh
 # $Id: age-1.in,v 1.3 2002/01/06 10:46:24 ajt Exp $
 set -e
-cd /var/lib/debbugs/spool/db-h
+cd "$(perl -MDebbugs::Config=:config -e 'print $config{spool_dir}')"
 test -f ./-3.log && rm ./-3.log
 test -f ./-2.log && mv ./-2.log ./-3.log
 test -f ./-1.log && mv ./-1.log ./-2.log