Lines Matching refs:v
43 (my $k, my $v) = m|^([^=]*)=(.*)$|;
45 push @{$values{$k}}, $v;
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] => ";
62 $v = [ map { File::Spec->rel2abs($_) } @$v ];
63 $values{$k} = $v;
64 print STDERR "$k = $v->[0]\n";
83 foreach my $v (@$v2) {
84 if (File::Spec->file_name_is_absolute($v)) {
85 push @{$values{$k}}, $v;
87 File::Spec->abs2rel($v, $values{$var}->[0]);
89 push @{$values{$kr}}, $v;
91 File::Spec->rel2abs($v, $values{$var}->[0]);
96 my $v = $values{$_};
97 "$_ = " . (scalar @$v > 1
98 ? "[ " . join(", ", @$v) . " ]"
99 : $v->[0]);
