--- nfo/perl/libs/Data/Rap/Metadata.pm	2004/06/20 16:12:24	1.4
+++ nfo/perl/libs/Data/Rap/Metadata.pm	2004/08/10 13:59:48	1.6
@@ -1,7 +1,13 @@
 ## ----------------------------------------------------------------------
-##  $Id: Metadata.pm,v 1.4 2004/06/20 16:12:24 joko Exp $
+##  $Id: Metadata.pm,v 1.6 2004/08/10 13:59:48 jonen Exp $
 ## ----------------------------------------------------------------------
 ##  $Log: Metadata.pm,v $
+##  Revision 1.6  2004/08/10 13:59:48  jonen
+##  + bugfix(use of Storable): the FreeBSD port of Perl 5.8.4 uses 64 bits
+##
+##  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,7 +34,12 @@
 use Data::Dumper;
 use DesignPattern::Object;
 use Storable;
+use File::Basename qw( dirname );
 
+# NEW 2004-08-05: needed at FreeBSD perl>=5.4.3
+# read http://lists.freebsd.org/pipermail/freebsd-ports/2004-June/013169.html
+# or more detailed at 'perldoc Storable'
+$Storable::interwork_56_64bit = 1;
 
 sub accessMetadata {
   my $self = shift;
@@ -119,7 +130,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');