Check for uninitialised variable

diff --git a/src/InfoCon/buch/infocon b/src/InfoCon/buch/infocon
index 26f6faa..35b9d8e 100755 (executable)
--- a/src/InfoCon/buch/infocon
+++ b/src/InfoCon/buch/infocon
@@ -120,7 +120,7 @@ sub sales_list
     my $sth;
     my $d;
 
     my $sth;
     my $d;
 

-    if ($where !~ /visible/ && (!$opt_all || $opt_all == 0)) {
+    if ($where && $where !~ /visible/ && (!$opt_all || $opt_all == 0)) {

        if ($where) {
            $where .= " AND visible = 1";
        } else {
        if ($where) {
            $where .= " AND visible = 1";
        } else {