Changeset e901fb68718fa7070a009edca156245ce82cf656 for lib/Resmon
- Timestamp:
- 10/15/07 21:02:42 (6 years ago)
- git-parent:
- Files:
-
- lib/Resmon/Status.pm (modified) (5 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
lib/Resmon/Status.pm
r8657b1c re901fb6 8 8 use Socket; 9 9 use Fcntl qw/:flock/; 10 use IPC::SysV qw /IPC_ CREAT IPC_RMID ftok S_IRWXU S_IRWXG S_IRWXO/;10 use IPC::SysV qw /IPC_PRIVATE IPC_CREAT IPC_RMID ftok S_IRWXU S_IRWXG S_IRWXO/; 11 11 use Data::Dumper; 12 12 … … 25 25 my $blob; 26 26 my $len; 27 return unless( $self->{shared_state});27 return unless(defined($self->{shared_state})); 28 28 # Lock shared segment 29 29 # Read in … … 40 40 sub store_shared_state { 41 41 my $self = shift; 42 return unless( $self->{shared_state});42 return unless(defined($self->{shared_state})); 43 43 my $blob = Dumper($self->{store}); 44 44 … … 260 260 chmod 0644, "$self->{file}.swap"; 261 261 262 unless($self->{shared_state}) { 263 my $id = ftok(__FILE__,$self->{ftok_number}); 264 $self->{shared_state} = shmget($id, $SEGSIZE, 265 IPC_CREAT|S_IRWXU|S_IRWXG|S_IRWXO) 266 || die "$0: $!"; 262 unless(defined($self->{shared_state})) { 263 $self->{shared_state} = shmget(IPC_PRIVATE, $SEGSIZE, 264 IPC_CREAT|S_IRWXU|S_IRWXG|S_IRWXO); 265 die "$0: $!" if($self->{shared_state} == -1); 267 266 } 268 267 return 1; … … 300 299 waitpid(-1,WNOHANG); 301 300 } 302 if( $self->{shared_state}) {301 if(defined($self->{shared_state})) { 303 302 shmctl($self->{shared_state}, IPC_RMID, 0); 304 303 }
