Lines Matching refs:k
43 (my $k, my $v) = m|^([^=]*)=(.*)$|;
44 $keys{$k} = 1;
45 push @{$values{$k}}, $v;
49 foreach my $k (sort keys %all) {
50 warn "No value given for $k\n" unless $keys{$k};
52 foreach my $k (sort keys %keys) {
53 warn "Unknown variable $k\n" unless $all{$k};
58 foreach my $k (@absolutes) {
59 my $v = $values{$k} || [ '.' ];
60 die "Can't have more than one $k\n" if scalar @$v > 1;
61 print STDERR "DEBUG: $k = $v->[0] => ";
63 $values{$k} = $v;
64 print STDERR "$k = $v->[0]\n";
76 foreach my $k (@$subdir_vars) {
77 my $kr = "${k}_REL_${var}";
78 my $v2 = $values{$k} || [ '.' ];
79 $values{$k} = []; # We're rebuilding it
80 print STDERR "DEBUG: $k = ",
85 push @{$values{$k}}, $v;
90 push @{$values{$k}},
100 } ($k, $kr)),
115 foreach my $k (@absolutes) {
116 print " \@$k\n";
120 foreach my $k (@$subdir_vars) {
121 my $k2 = "${k}_REL_${var}";
122 print " \@$k \@$k2\n";
132 foreach my $k (@absolutes) {
133 print "our \@$k" . ' ' x (27 - length($k)) . "= ( '",
134 join("', '", @{$values{$k}}),
139 foreach my $k (@$subdir_vars) {
140 my $k2 = "${k}_REL_${var}";
141 print "our \@$k" . ' ' x (27 - length($k)) . "= ( '",
142 join("', '", @{$values{$k}}),
