Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP

Comparing changes

Choose two branches to see what’s changed or to start a new pull request. If you need to, you can also compare across forks.

Open a pull request

Create a new pull request by comparing changes across two branches. If you need to, you can also compare across forks.
base fork: SineSwiper/P9Y-ProcessTable
base: 564cceb7e5
...
head fork: SineSwiper/P9Y-ProcessTable
compare: 05856321a9
  • 5 commits
  • 13 files changed
  • 0 commit comments
  • 1 contributor
View
8 CHANGES
@@ -1,9 +1,15 @@
Revision History for P9Y-ProcessTable
=====================================
-v0.95_003 2013-02-27
+v0.95_004 2013-03-18
--------------------
+commit 5873bc169abf4a379d9cf5acd0da5bcbe4c617f9
+Author: Brendan Byrd <Perl@ResonatorSoft.org>
+Date: Mon Mar 18 18:41:36 2013 -0400
+
+ Fix methods caught by the "You cannot overwrite a locally defined method" M:G:A error
+
commit 8f23744a3c78027f11e0d1a085d16a25df296c96
Author: Brendan Byrd <Perl@ResonatorSoft.org>
Date: Wed Feb 27 18:17:09 2013 -0500
View
6 META.json
@@ -47,11 +47,11 @@
"provides" : {
"P9Y::ProcessTable" : {
"file" : "lib/P9Y/ProcessTable.pm",
- "version" : "0.95_003"
+ "version" : "0.95_004"
},
"P9Y::ProcessTable::Process" : {
"file" : "lib/P9Y/ProcessTable/Process.pm",
- "version" : "0.95_003"
+ "version" : "0.95_004"
}
},
"release_status" : "testing",
@@ -67,7 +67,7 @@
},
"x_irc" : "irc://irc.perl.org/#win32"
},
- "version" : "0.95_003",
+ "version" : "0.95_004",
"x_Dist_Zilla" : {
"perl" : {
"version" : "5.016000"
View
6 META.yml
@@ -22,10 +22,10 @@ no_index:
provides:
P9Y::ProcessTable:
file: lib/P9Y/ProcessTable.pm
- version: 0.95_003
+ version: 0.95_004
P9Y::ProcessTable::Process:
file: lib/P9Y/ProcessTable/Process.pm
- version: 0.95_003
+ version: 0.95_004
requires:
Moo: 0.009001
Path::Class: 0.16
@@ -36,7 +36,7 @@ resources:
bugtracker: https://github.com/SineSwiper/P9Y-ProcessTable/issues
homepage: https://github.com/SineSwiper/P9Y-ProcessTable/wiki
repository: git://github.com/SineSwiper/P9Y-ProcessTable.git
-version: 0.95_003
+version: 0.95_004
x_Dist_Zilla:
perl:
version: 5.016000
View
2  Makefile.PL
@@ -24,7 +24,7 @@ my %WriteMakefileArgs = (
'Path::Class' => '0.16',
'namespace::clean' => '0.01'
},
- 'VERSION' => '0.95_003',
+ 'VERSION' => '0.95_004',
'test' => {
'TESTS' => 't/*.t'
}
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 Wed Feb 27 23:18:22 2013 GMT.
+ under Perl v5.016000 at Mon Mar 18 22:46:25 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
2  lib/P9Y/ProcessTable.pm
@@ -1,6 +1,6 @@
package P9Y::ProcessTable;
-our $VERSION = '0.95_003'; # VERSION
+our $VERSION = '0.95_004'; # VERSION
# ABSTRACT: Portably access the process table
# use sanity;
View
2  lib/P9Y/ProcessTable/BSD.pm
@@ -1,7 +1,7 @@
package # hide from PAUSE
P9Y::ProcessTable;
-our $VERSION = '0.95_003'; # VERSION
+our $VERSION = '0.95_004'; # VERSION
#############################################################################
# Modules
View
2  lib/P9Y/ProcessTable/Darwin.pm
@@ -1,7 +1,7 @@
package # hide from PAUSE
P9Y::ProcessTable;
-our $VERSION = '0.95_003'; # VERSION
+our $VERSION = '0.95_004'; # VERSION
#############################################################################
# Modules
View
2  lib/P9Y/ProcessTable/OS2.pm
@@ -1,7 +1,7 @@
package # hide from PAUSE
P9Y::ProcessTable;
-our $VERSION = '0.95_003'; # VERSION
+our $VERSION = '0.95_004'; # VERSION
#############################################################################
# Modules
View
2  lib/P9Y/ProcessTable/ProcFS.pm
@@ -1,7 +1,7 @@
package # hide from PAUSE
P9Y::ProcessTable;
-our $VERSION = '0.95_003'; # VERSION
+our $VERSION = '0.95_004'; # VERSION
#############################################################################
# Modules
View
18 lib/P9Y/ProcessTable/Process.pm
@@ -1,6 +1,6 @@
package P9Y::ProcessTable::Process;
-our $VERSION = '0.95_003'; # VERSION
+our $VERSION = '0.95_004'; # VERSION
# ABSTRACT: Base class for a single process
#############################################################################
@@ -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
2  lib/P9Y/ProcessTable/VMS.pm
@@ -1,7 +1,7 @@
package # hide from PAUSE
P9Y::ProcessTable;
-our $VERSION = '0.95_003'; # VERSION
+our $VERSION = '0.95_004'; # VERSION
#############################################################################
# Modules
View
10 lib/P9Y/ProcessTable/Win32.pm
@@ -1,7 +1,7 @@
package # hide from PAUSE
P9Y::ProcessTable;
-our $VERSION = '0.95_003'; # VERSION
+our $VERSION = '0.95_004'; # VERSION
#############################################################################
# Modules
@@ -287,12 +287,12 @@ sub kill {
}
}
-sub priority {
- my ($self, $pri) = @_;
- return $self->{priority} if @_ == 1;
+Class::Method::Modifiers::around priority => sub {
+ my ($orig, $self, $pri) = @_;
+ return $orig->($self) if @_ == 2;
$self->_win32_proc->SetPriorityClass($pri);
$self->_set_priority($pri);
-}
+};
42;

No commit comments for this range

Something went wrong with that request. Please try again.