From e330e4cf04e5f02369a29debb0e9bc728bf1e660 Mon Sep 17 00:00:00 2001
From: "Georgi D. Sotirov" <gdsotirov@gmail.com>
Date: Sun, 8 Sep 2019 18:57:10 +0300
Subject: [PATCH] Bug 61: Fix duplicated dependencies (undefine loop variables
 and match packages with names in uppercase)

---
 db/scripts/load-deps.pl | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/db/scripts/load-deps.pl b/db/scripts/load-deps.pl
index a9bcc77..407b4ec 100644
--- a/db/scripts/load-deps.pl
+++ b/db/scripts/load-deps.pl
@@ -69,15 +69,19 @@ sub register_deps {
 
   my @lines = split(/\n/, $out);
   foreach my $ln (@lines) {
+    $dep_name = undef;
+    $dep_sign = undef;
+    $dep_ver  = undef;
     # only package name
-    if ( $ln =~ /^([a-z_+\-0-9]+)$/ ) {
+    if ( $ln =~ /^([a-zA-Z_+\-0-9]+)$/ ) {
       $dep_name = $1;
     } # with sign and version
-    elsif ( $ln =~ /^([a-z_+\-0-9]+)\s*([><=]+)\s*(.+)$/ ) {
+    elsif ( $ln =~ /^([a-zA-Z_+\-0-9]+)\s*([><=]+)\s*(.+)$/ ) {
       $dep_name = $1;
       $dep_sign = $2;
       $dep_ver  = $3;
     }
+    # TODO: Alternativies?
 
     if ( $dep_name ) {
       $sth->execute($pkg->{id}, $type, $dep_name, $dep_sign, $dep_ver);