mirror of
https://github.com/Stichting-MINIX-Research-Foundation/pkgsrc-ng.git
synced 2025-09-19 01:13:56 -04:00
38 lines
1.1 KiB
Plaintext
38 lines
1.1 KiB
Plaintext
$NetBSD: patch-ag,v 1.1.1.1 2010/12/23 16:55:02 taca Exp $
|
|
|
|
Stop perl deprecated warnings.
|
|
|
|
--- cf/config.orig 2003-01-15 18:07:38.000000000 +0000
|
|
+++ cf/config
|
|
@@ -657,10 +657,10 @@ sub main'reverse
|
|
if (defined $entry) {
|
|
print STDERR "GO \$\t$key\n";
|
|
}
|
|
- elsif (defined @entry) {
|
|
+ elsif (@entry) {
|
|
print STDERR "GO \@\t$key\n";
|
|
}
|
|
- elsif (defined %entry) {
|
|
+ elsif (%entry) {
|
|
print STDERR "GO \%\t$key\n";
|
|
}
|
|
elsif (defined &entry) {
|
|
@@ -718,7 +718,7 @@ sub main'reverse
|
|
# Is there an associative array that isn't the one
|
|
# we're currently iterating through?
|
|
|
|
- if ($key ne "_$package" && defined %entry) {
|
|
+ if ($key ne "_$package" && %entry) {
|
|
$OUT'LOCAL .= "\%$key = (\n"; #';
|
|
foreach $key (sort keys(%entry)) {
|
|
$OUT'LOCAL .= "'$key', '". $entry{$key} ."',\n";#';
|
|
@@ -794,7 +794,7 @@ sub rv'PreScanConfigPH #';
|
|
elsif (defined @entry) {
|
|
eval("$rv'\@$key = 1; undef $rv'\@$key");
|
|
}
|
|
- elsif ($key ne "_$package" && $key ne "_DB" && defined %entry) {
|
|
+ elsif ($key ne "_$package" && $key ne "_DB" && %entry) {
|
|
eval("$rv'\%$key = 1; undef $rv'\%$key");
|
|
}
|
|
else {
|