/usr/share/perl5/SWISS/EntryStore/Release.pm is in libswiss-perl 1.67-1.1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 | # *************************************************************
#
# Package: SWISS/knife
#
# Purpose: Fast access to SWISS-PROT entries via NDBM indexes
# flat files.
#
# Usage: use SWISS::EntryStore::Release qw(%WR);
# my $entry1 = $WR{'P39000'};
#
# *************************************************************
package SWISS::EntryStore::Release;
use vars qw(@ISA @EXPORT_OK %WR);
use Env qw(WR INDEXES OSTYPE);
use Exporter;
use Fcntl;
use Carp;
use strict;
use SWISS::Entry;
use SWISS::EntryStore::Index;
BEGIN {
@EXPORT_OK = qw(%WR);
@ISA = qw(Exporter);
}
die "Environment variable 'WR' is not defined.\n".
"It should point to the current SWISS-PROT workrelease.\n"
unless $WR;
die "Environment variable 'OSTYPE' is not defined.\n".
"It should contain the name of the operating system.\n"
unless $OSTYPE;
die "Environment variable 'INDEXES' is not defined.\n".
"It should point to the directory where all indexes live.\n"
unless $INDEXES;
my ($wrname)=$WR=~m!/(\w+?)$!;
tie %WR, 'SWISS::EntryStore::Index',
{File => $WR,
Index => $INDEXES."$wrname.spac.$OSTYPE",
Access => O_RDWR|O_CREAT,
};
|