Permalink
Browse files

Build results of 8f23744 (on master)

  • Loading branch information...
SineSwiper committed Mar 18, 2013
1 parent 5e0c508 commit 221e3aa75901bee540c217f69366b832ec422cff
Showing with 13 additions and 13 deletions.
  1. +1 −1 README.html
  2. +8 −8 lib/P9Y/ProcessTable/Process.pm
  3. +4 −4 lib/P9Y/ProcessTable/Win32.pm
View
@@ -5,7 +5,7 @@
<!--
generated by Pod::Simple::HTML v3.20,
using Pod::Simple::PullParser v3.20,
- under Perl v5.016000 at Mon Mar 18 21:42:17 2013 GMT.
+ under Perl v5.016000 at Mon Mar 18 22:36:07 2013 GMT.
If you want to change this HTML document, you probably shouldn't do that
by changing it directly. Instead, see about changing the calling options
@@ -109,21 +109,21 @@ sub kill {
return CORE::kill($sig, $self->pid);
}
-sub pgrp {
- my ($self, $pgrp) = @_;
- return $self->{pgrp} if @_ == 1;
+around pgrp => sub {
+ my ($orig, $self, $pgrp) = @_;
+ return $orig->($self) if @_ == 2;
setpgrp($self->pid, $pgrp);
$self->_set_pgrp($pgrp);
-}
+};
-sub priority {
- my ($self, $pri) = @_;
- return $self->{priority} if @_ == 1;
+around priority => sub {
+ my ($orig, $self, $pri) = @_;
+ return $orig->($self) if @_ == 2;
setpriority(0, $self->pid, $pri);
$self->_set_priority($pri);
-}
+};
42;
@@ -287,12 +287,12 @@ sub kill {
}
}
-sub priority {
- my ($self, $pri) = @_;
- return $self->{priority} if @_ == 1;
+around priority => sub {
+ my ($orig, $self, $pri) = @_;
+ return $orig->($self) if @_ == 2;
$self->_win32_proc->SetPriorityClass($pri);
$self->_set_priority($pri);
-}
+};
42;

0 comments on commit 221e3aa

Please sign in to comment.