mirror of
https://github.com/Stichting-MINIX-Research-Foundation/pkgsrc-ng.git
synced 2025-09-23 03:33:34 -04:00
51 lines
1.4 KiB
Plaintext
51 lines
1.4 KiB
Plaintext
$NetBSD: patch-ag,v 1.3 2015/07/20 00:06:18 taca Exp $
|
|
|
|
Avoid use of obsolete perl syntax.
|
|
|
|
--- 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) {
|
|
@@ -703,7 +703,7 @@ sub main'reverse
|
|
next;
|
|
}
|
|
|
|
- if (defined @entry) {
|
|
+ if (@entry) {
|
|
undef $num;
|
|
$OUT'LOCAL .= "\@$key = (";
|
|
foreach (@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";#';
|
|
@@ -791,10 +791,10 @@ sub rv'PreScanConfigPH #';
|
|
if (defined $entry) {
|
|
eval("$rv'\$$key = 1; undef $rv'\$$key");
|
|
}
|
|
- elsif (defined @entry) {
|
|
+ elsif (@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 {
|