oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added Cache::FileCache support.

Browse source
This commit is contained in:
JT Smith 2002-12-17 08:08:30 +00:00
parent 0938e9d6cb
commit 77a5b7406a
2 changed files with 12 additions and 39 deletions
Download patch file Download diff file Expand all files Collapse all files

21
sbin/preload.perl
View file

@ -25,26 +25,7 @@ use File::Copy ();
use File::Path ();
use FileHandle ();
use POSIX ();
#----------------------------------------
# International Message Caching
#----------------------------------------
#Test to see if IPC::Sharable will load.
my $hasIPC=1;
eval " use IPC::Shareable (); "; $hasIPC=0 if $@;
my (%international);
if ($hasIPC) {
my $glue = 'intl';
my %options = (
create => 'yes',
exclusive => 0,
mode => 0666,
destroy => 'yes',
);
tie %international, 'IPC::Shareable', $glue, { %options };
}
eval " use Cache::FileCache (); "; # check to see if it will load;
#----------------------------------------