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; |