mkaptsrc: Perl's scoping for `my' variables is bobbins.

[distorted-bits] / mkaptsrc

diff --git a/mkaptsrc b/mkaptsrc
index 684f964..b8da270 100755 (executable)
--- a/mkaptsrc
+++ b/mkaptsrc
@@ -327,7 +327,7 @@ for my $pair (@SUB) {
 
        ## Build an output line.
        my $out = "";
-       defined (my $opt = $a{options}) and $out .= "[ $opt ] ";
+       if (defined (my $opt = $a{options})) { $out .= "[ $opt ] "; }
        $out .= "$a{uri} $a{release} $a{components}";
 
        ## Canonify whitespace.