| 2 |
## $Id$ |
## $Id$ |
| 3 |
## ---------------------------------------------------------------------- |
## ---------------------------------------------------------------------- |
| 4 |
## $Log$ |
## $Log$ |
| 5 |
|
## Revision 1.6 2004/08/10 13:59:48 jonen |
| 6 |
|
## + bugfix(use of Storable): the FreeBSD port of Perl 5.8.4 uses 64 bits |
| 7 |
|
## |
| 8 |
## Revision 1.5 2004/06/20 23:00:23 joko |
## Revision 1.5 2004/06/20 23:00:23 joko |
| 9 |
## minor fix: now creates cache-file in same directory where rap.xml is |
## minor fix: now creates cache-file in same directory where rap.xml is |
| 10 |
## |
## |
| 36 |
use Storable; |
use Storable; |
| 37 |
use File::Basename qw( dirname ); |
use File::Basename qw( dirname ); |
| 38 |
|
|
| 39 |
|
# NEW 2004-08-05: needed at FreeBSD perl>=5.4.3 |
| 40 |
|
# read http://lists.freebsd.org/pipermail/freebsd-ports/2004-June/013169.html |
| 41 |
|
# or more detailed at 'perldoc Storable' |
| 42 |
|
$Storable::interwork_56_64bit = 1; |
| 43 |
|
|
| 44 |
sub accessMetadata { |
sub accessMetadata { |
| 45 |
my $self = shift; |
my $self = shift; |