|
Check-in Number:
|
4653 | |
| Date: |
2004-Jul-28 15:00:58 (local)
2004-Jul-28 13:00:58 (UTC) |
| User: | thl |
| Branch: | |
| Comment: |
remove irrelevant assignments which perl >= 5.8.4 optimizes away anyway |
| Tickets: |
|
| Inspections: |
|
| Files: |
|
ossp-pkg/snmpdx/snmpdx.d/hwCpu.pm 1.8 -> 1.9
--- hwCpu.pm 2003/09/10 15:01:46 1.8
+++ hwCpu.pm 2004/07/28 13:00:59 1.9
@@ -37,8 +37,8 @@
my ($self, $obj) = @_;
if ($self->{-ctx}->{-platform}->id() =~ m/FreeBSD/i) {
- my $hwCpuNum = undef;
- my @hwCpuENTRY = undef; #N/A
+ my $hwCpuNum;
+ my @hwCpuENTRY; #N/A
# local workspace
my $out; my $raw;
@@ -53,8 +53,8 @@
$obj->{-value} = $hwCpuNum if ($obj->{-name} =~ m/\.hwCpuNum$/);
}
elsif ($self->{-ctx}->{-platform}->id() =~ m/Linux/i) {
- my $hwCpuNum = undef;
- my @hwCpuENTRY = undef; #N/A
+ my $hwCpuNum;
+ my @hwCpuENTRY; #N/A
# local workspace
my $out; my $raw;
@@ -71,8 +71,8 @@
$obj->{-value} = $hwCpuNum if ($obj->{-name} =~ m/\.hwCpuNum$/);
}
elsif($self->{-ctx}->{-platform}->id() =~ m/SunOS/i) {
- my $hwCpuNum = undef;
- my @hwCpuENTRY = undef;
+ my $hwCpuNum;
+ my @hwCpuENTRY;
# local workspace
my $out; my $raw; my $arch;
|
|
ossp-pkg/snmpdx/snmpdx.d/hwDisk.pm 1.5 -> 1.6
--- hwDisk.pm 2003/09/10 15:01:46 1.5
+++ hwDisk.pm 2004/07/28 13:00:59 1.6
@@ -37,13 +37,13 @@
my ($self, $obj) = @_;
if ($self->{-ctx}->{-platform}->id() =~ m/FreeBSD/i) {
- my @hwDiskENTRY = undef; #N/A
+ my @hwDiskENTRY; #N/A
}
elsif ($self->{-ctx}->{-platform}->id() =~ m/Linux/i) {
- my @hwDiskENTRY = undef; #N/A
+ my @hwDiskENTRY; #N/A
}
elsif($self->{-ctx}->{-platform}->id() =~ m/SunOS/i) {
- my @hwDiskENTRY = undef;
+ my @hwDiskENTRY;
my $n = 0;
# local workspace
|
|
ossp-pkg/snmpdx/snmpdx.d/hwFan.pm 1.4 -> 1.5
--- hwFan.pm 2003/09/10 15:01:46 1.4
+++ hwFan.pm 2004/07/28 13:00:59 1.5
@@ -37,13 +37,13 @@
my ($self, $obj) = @_;
if ($self->{-ctx}->{-platform}->id() =~ m/FreeBSD/i) {
- my @hwFanENTRY = undef; #N/A
+ my @hwFanENTRY; #N/A
}
elsif ($self->{-ctx}->{-platform}->id() =~ m/Linux/i) {
- my @hwFanENTRY = undef; #N/A
+ my @hwFanENTRY; #N/A
}
elsif($self->{-ctx}->{-platform}->id() =~ m/SunOS/i) {
- my @hwFanENTRY = undef;
+ my @hwFanENTRY;
my $n = 0;
# local workspace
|
|
ossp-pkg/snmpdx/snmpdx.d/hwPs.pm 1.4 -> 1.5
--- hwPs.pm 2003/09/10 15:01:46 1.4
+++ hwPs.pm 2004/07/28 13:00:59 1.5
@@ -37,13 +37,13 @@
my ($self, $obj) = @_;
if ($self->{-ctx}->{-platform}->id() =~ m/FreeBSD/i) {
- my @hwPsENTRY = undef; #N/A
+ my @hwPsENTRY; #N/A
}
elsif ($self->{-ctx}->{-platform}->id() =~ m/Linux/i) {
- my @hwPsENTRY = undef; #N/A
+ my @hwPsENTRY; #N/A
}
elsif($self->{-ctx}->{-platform}->id() =~ m/SunOS/i) {
- my @hwPsENTRY = undef;
+ my @hwPsENTRY;
my $n = 0;
# local workspace
|
|
ossp-pkg/snmpdx/snmpdx.d/hwRam.pm 1.3 -> 1.4
--- hwRam.pm 2003/09/10 15:01:46 1.3
+++ hwRam.pm 2004/07/28 13:00:59 1.4
@@ -42,8 +42,8 @@
# hwRamStatus N.A.
#
if ($obj->{-name} =~ m/\.hwRamMax$/) {
- my $hwRamMax = undef;
- my $hwRamStatus = undef;
+ my $hwRamMax;
+ my $hwRamStatus;
# local workspace
my $out; my $raw;
@@ -62,8 +62,8 @@
# hwRamStatus N.A.
#
if ($obj->{-name} =~ m/\.hwRamMax$/) {
- my $hwRamMax = undef;
- my $hwRamStatus = undef;
+ my $hwRamMax;
+ my $hwRamStatus;
# local workspace
my $out; my $raw;
@@ -84,8 +84,8 @@
#FIXME set prtdiag cache expiry to "forever" when cache supports multiple caching times
#
if ($obj->{-name} =~ m/\.hwRam(Max|Status)$/) {
- my $hwRamMax = undef;
- my $hwRamStatus = undef;
+ my $hwRamMax;
+ my $hwRamStatus;
# local workspace
my $out; my $raw; my $n2i; my @dat; my $arch;
|
|
ossp-pkg/snmpdx/snmpdx.d/sysFs.pm 1.5 -> 1.6
--- sysFs.pm 2003/09/10 15:01:46 1.5
+++ sysFs.pm 2004/07/28 13:00:59 1.6
@@ -37,7 +37,7 @@
my ($self, $obj) = @_;
if ($self->{-ctx}->{-platform}->id() =~ m/FreeBSD/i) {
- my @sysFsENTRY = undef;
+ my @sysFsENTRY;
my $n = 0;
# local workspace
@@ -82,7 +82,7 @@
}
}
elsif ($self->{-ctx}->{-platform}->id() =~ m/Linux/i) {
- my @sysFsENTRY = undef;
+ my @sysFsENTRY;
my $n = 0;
# local workspace
@@ -127,7 +127,7 @@
}
}
elsif($self->{-ctx}->{-platform}->id() =~ m/SunOS/i) {
- my @sysFsENTRY = undef;
+ my @sysFsENTRY;
my $n = 0;
# local workspace
|
|
ossp-pkg/snmpdx/snmpdx.pl 1.11 -> 1.12
--- snmpdx.pl 2004/07/28 12:57:00 1.11
+++ snmpdx.pl 2004/07/28 13:00:58 1.12
@@ -150,7 +150,7 @@
sub fetch ($$) {
my ($self, $id) = @_;
- my $value = undef;
+ my $value;
if (defined($self->{-cache}->{$id})) {
if ($self->{-cache}->{$id}->{-expires} > time()) {
$value = $self->{-cache}->{$id}->{-value};
|
|
