Fix arg parsing.

diff --git a/goldberg.pl b/goldberg.pl
index 417dbe6aaad00b4102077aed71408be64d3d3c37..c6258c7691a0afae7e74c5b8cb245da240755dcc 100755 (executable)
--- a/goldberg.pl
+++ b/goldberg.pl
@@ -13,7 +13,7 @@ use AA::Graph;
 use AA::Net;
 use AA::Anim;
 
-my $anim = shift @ARGV;
+my $show = shift @ARGV;
 my $output = shift @ARGV || "";
 
 my $ui = AA::UI->new($output);
@@ -77,7 +77,7 @@ sub hint($) {
 
 my $scenario;
 
-if (!@ARGV || $ARGV[0] eq "1") {
+if (!$show || $show eq "1") {
        $scenario = [
                sub { },
                sub { flow(0, 5);       hint(1); },
@@ -88,7 +88,7 @@ if (!@ARGV || $ARGV[0] eq "1") {
                sub { up(3); },
                sub { flow(3, 5);       hint(-1); },
        ];
-} elsif ($ARGV[0] eq "2") {
+} elsif ($show eq "2") {
        $title->Set('text', "Goldberg v úzkých");
        for (my $i=0; $i<@v-1; $i++) {
                $e[$i]->Set('c', 5-$i);
@@ -135,7 +135,7 @@ if (!@ARGV || $ARGV[0] eq "1") {
                sub { flow(1, -1); hint(1); },
                sub { flow(0, -1); hint(-1); },
        ];
-} elsif ($ARGV[0] eq "3") {
+} elsif ($show eq "3") {
        $title->Set('text', "Goldberg s nejvyšším vrcholem");
        for (my $i=0; $i<@v-1; $i++) {
                $e[$i]->Set('c', 5-$i);