--- nfo/perl/libs/Data/Rap/Metadata.pm	2004/06/20 16:12:24	1.4
+++ nfo/perl/libs/Data/Rap/Metadata.pm	2004/06/20 23:00:23	1.5
@@ -1,7 +1,10 @@
 ## ----------------------------------------------------------------------
-##  $Id: Metadata.pm,v 1.4 2004/06/20 16:12:24 joko Exp $
+##  $Id: Metadata.pm,v 1.5 2004/06/20 23:00:23 joko Exp $
 ## ----------------------------------------------------------------------
 ##  $Log: Metadata.pm,v $
+##  Revision 1.5  2004/06/20 23:00:23  joko
+##  minor fix: now creates cache-file in same directory where rap.xml is
+##
 ##  Revision 1.4  2004/06/20 16:12:24  joko
 ##  + sub indexTargets
 ##  modified getTargetDetails to use cached target details
@@ -28,6 +31,7 @@
 use Data::Dumper;
 use DesignPattern::Object;
 use Storable;
+use File::Basename qw( dirname );
 
 
 sub accessMetadata {
@@ -119,7 +123,13 @@
   my $self = shift;
   my $options = shift;
   
+  # determine filename for cache-file
   my $filename = 'rap.xml.cache';
+  if (my $rapfile = $self->{__rap}->{filename}) {
+    if (my $path = dirname($rapfile)) {
+      $filename = $path . '/' . $filename;
+    }
+  }
   
   if ($options->{build}) {
     $self->log("Building index of Targets", 'notice');