Changeset 998c2340a84751cc98233c2f54b2ff06038fae2a
- Timestamp:
- 10/20/09 22:00:36
(4 years ago)
- Author:
- Mark Harrison <mark@omniti.com>
- git-committer:
- Mark Harrison <mark@omniti.com> 1256076036 +0000
- git-parent:
[515131ccfa898b2fde519d866813438739744647]
- git-author:
- Mark Harrison <mark@omniti.com> 1256076036 +0000
- Message:
Fix memory leak with the freemem check
git-svn-id: https://labs.omniti.com/resmon/trunk@219 8c0face9-b7db-6ec6-c4b3-d5f7145c7d55
-
Files:
-
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
| ra644afe |
r998c234 |
|
| 24 | 24 | @ISA = qw/Resmon::Module/; |
|---|
| 25 | 25 | |
|---|
| | 26 | my $usekstat = 0; |
|---|
| | 27 | my $kstat; |
|---|
| | 28 | if ($^O eq 'solaris') { |
|---|
| | 29 | eval "use Sun::Solaris::Kstat"; |
|---|
| | 30 | unless ($@) { |
|---|
| | 31 | $usekstat = 1; |
|---|
| | 32 | $kstat = Sun::Solaris::Kstat->new(); |
|---|
| | 33 | } |
|---|
| | 34 | } |
|---|
| 26 | 35 | |
|---|
| 27 | 36 | sub handler { |
|---|
| … | … | |
| 49 | 58 | close(MEMINFO); |
|---|
| 50 | 59 | } elsif ($^O eq 'solaris') { |
|---|
| 51 | | eval "use Sun::Solaris::Kstat"; |
|---|
| 52 | | if ($@) { |
|---|
| | 60 | if (!$usekstat) { |
|---|
| 53 | 61 | # Kstat isn't available |
|---|
| 54 | 62 | if ($includecache) { |
|---|
| … | … | |
| 71 | 79 | } else { |
|---|
| 72 | 80 | # We have kstat, use that for everything |
|---|
| 73 | | my $kstat = Sun::Solaris::Kstat->new(); |
|---|
| 74 | 81 | my $pagesize = `pagesize`; |
|---|
| 75 | 82 | my $syspages = $kstat->{unix}->{0}->{system_pages}; |
|---|
