Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Build results of 8f23744 (on master)

  • Loading branch information...
commit 221e3aa75901bee540c217f69366b832ec422cff 1 parent 5e0c508
@SineSwiper authored
View
2  README.html
@@ -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
View
16 lib/P9Y/ProcessTable/Process.pm
@@ -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;
View
8 lib/P9Y/ProcessTable/Win32.pm
@@ -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;
Please sign in to comment.
Something went wrong with that request. Please try again.