bryson/pacman
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

makepkg-template: Stop using given/when

Browse source 
given/when has been marked experimental in perl 5.18 because it will
change it 5.20. if/else is ugly, but hiding the generated warning is no
good solution either, so we us if/else for now.

Signed-off-by: Florian Pritz <bluewind@xinu.at>
Signed-off-by: Allan McRae <allan@archlinux.org>
This commit is contained in:
Florian Pritz 2013-05-22 16:35:23 +02:00 • committed by Allan McRae
parent cbc25c22fc
commit a36d4b2831
1 changed files with 8 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
scripts/makepkg-template.pl.in
View file

@ -120,22 +120,16 @@ sub process_file {
if ($line =~ $template_marker) {
my $values = parse_template_line($line, $filename, $linenumber);
given ($values->{command}) {
when (['start', 'input']) {
if ($values->{command} eq "start" or $values->{command} eq "input") {
if ($nesting_level == 0) {
$ret .= load_template($values);
}
}
when ('end') {
} elsif ($values->{command} eq "end") {
# nothing to do here, just for completeness
}
default {
} else {
die sprintf(gettext("Unknown template marker '%s'\n"), $values->{command}),
"$filename:$linenumber: $line";
}
}
$nesting_level++ if $values->{command} eq "start";
$nesting_level-- if $values->{command} eq "end";