File tree Expand file tree Collapse file tree 1 file changed +6
-2
lines changed Expand file tree Collapse file tree 1 file changed +6
-2
lines changed Original file line number Diff line number Diff line change @@ -118,10 +118,14 @@ sub new {
118
118
%Param ,
119
119
);
120
120
121
- return $Self unless eval ' require IPC::SysV' ; # # no critic qw(BuiltinFunctions::ProhibitStringyEval)
121
+ # The code has hardcoded values for the flags passed to shmget(). Therefore
122
+ # there is no need to load IPC::SysV. Using the availablity of IPC::SysV as an indicator
123
+ # whether shmget() works is not a good idea. IPC::SysV is a core module.
124
+ # TODO: actually use the constants from IPC::SysV.
125
+ # return $Self unless eval 'require IPC::SysV';
122
126
123
127
# Setup IPC for shared access to the last log entries.
124
- my $IPCKey = ' 444423' . $SystemID ; # This name is used to identify the shared memory segment.
128
+ my $IPCKey = ' 444423' . $SystemID ; # This name is used to identify the shared memory segment.
125
129
$Self -> {IPCSize } = $ConfigObject -> Get(' LogSystemCacheSize' ) || 32 * 1024;
126
130
127
131
# Create/access shared memory segment.
You can’t perform that action at this time.
0 commit comments