0
G lY>;ҁr 'ţ
45_ ub
&=LyZofai~d
e8 خ2o - +WM3֏.-N,3 9
5Ⱦ
|
Index of /ALFA_DATA/alfasymlink/root/sys/bus/cpu/devices/cpu3
Index of /ALFA_DATA/alfasymlink/root/sys/bus/cpu/devices/cpu3
/ li~ XEpNF
m_ ub
&=LV[( ################################################################################
#
# $Revision: 4 $
# $Author: mhx $
# $Date: 2010/03/07 16:01:42 +0100 $
#
################################################################################
#
# Version 2.x, Copyright (C) 2007-2010, Marcus Holland-Moritz .
# Version 1.x, Copyright (C) 1997, Graham Barr .
#
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#
################################################################################
package IPC::SharedMem;
use IPC::SysV qw(IPC_STAT IPC_RMID shmat shmdt memread memwrite);
use strict;
use vars qw($VERSION);
use Carp;
$VERSION = do { my @r = '$Snapshot: /IPC-SysV/2.03 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
$VERSION = eval $VERSION;
# Figure out if we have support for native sized types
my $N = do { my $foo = eval { pack "L!", 0 }; $@ ? '' : '!' };
{
package IPC::SharedMem::stat;
use Class::Struct qw(struct);
struct 'IPC::SharedMem::stat' => [
uid => '$',
gid => '$',
cuid => '$',
cgid => '$',
mode => '$',
segsz => '$',
lpid => '$',