summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Win32/Process/Info/WMI.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Win32/Process/Info/WMI.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Win32/Process/Info/WMI.pm12
1 files changed, 8 insertions, 4 deletions
diff --git a/Master/tlpkg/tlperl/lib/Win32/Process/Info/WMI.pm b/Master/tlpkg/tlperl/lib/Win32/Process/Info/WMI.pm
index 06dcea9cfc4..ccebb6254f3 100644
--- a/Master/tlpkg/tlperl/lib/Win32/Process/Info/WMI.pm
+++ b/Master/tlpkg/tlperl/lib/Win32/Process/Info/WMI.pm
@@ -24,6 +24,8 @@ only be called via that package.
This package implements the WMI-specific methods of
Win32::Process::Info.
+This package returns Windows process IDs, even under Cygwin.
+
The following methods should be considered public:
=over 4
@@ -35,8 +37,9 @@ package Win32::Process::Info::WMI;
use strict;
use warnings;
-use base qw{Win32::Process::Info};
-our $VERSION = '1.019';
+use base qw{ Win32::Process::Info };
+
+our $VERSION = '1.020';
use vars qw{%mutator};
use Carp;
@@ -208,9 +211,10 @@ be present.
sub _get_proc_objects {
my $self = shift;
+my $my_pid = $self->My_Pid();
my @procs = @_ ?
map {
- my $pi = $_ eq '.' ? $$ : $_;
+ my $pi = $_ eq '.' ? $my_pid : $_;
my $obj = $self->{wmi}->Get ("Win32_Process='$pi'");
Win32::OLE->LastError ? () : ($obj)
} @_ :
@@ -411,7 +415,7 @@ Thomas R. Wyant, III (F<wyant at cpan dot org>)
Copyright (C) 2001-2005 by E. I. DuPont de Nemours and Company, Inc.
-Copyright (C) 2007, 2010-2011 by Thomas R. Wyant, III
+Copyright (C) 2007, 2010-2011, 2013 by Thomas R. Wyant, III
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl 5.10.0. For more details, see the full text