Fixed bug in parsing of options.

diff --git a/lib/perl/Configure.pm b/lib/perl/Configure.pm
index f251ce62c463c55204131b911ce278f6d9bec07f..b16d15a88f3a04a4978072e4e063835bfdb9a0fe 100644 (file)
--- a/lib/perl/Configure.pm
+++ b/lib/perl/Configure.pm
@@ -124,7 +124,7 @@ sub Init($$) {
                } elsif ($x =~ /^(\w+)$/) {
                        Override($1 => 1);
                } else {
-                       print STDERR "Invalid option $_\n";
+                       print STDERR "Invalid option $x\n";
                        exit 1;
                }
        }