From 90c3eba635f31472ca4fb5ebec5910a41221dbbf Mon Sep 17 00:00:00 2001
From: lshprung <lshprung@yahoo.com>
Date: Sun, 26 Sep 2021 16:58:31 -0700
Subject: Added debug mode, fixed bug in checking for duplicate files

---
 shared.pl | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'shared.pl')

diff --git a/shared.pl b/shared.pl
index 4c71855..b07071b 100644
--- a/shared.pl
+++ b/shared.pl
@@ -6,6 +6,10 @@
 # 	@_[1]            -> command/statement
 # 	@_[2] (optional) -> output statement
 sub db_cmd {
+	if ($options{debug}){
+		print "Preparing SQL query \"$_[1]\"\n"
+	}
+
 	my $sth = $_[0]->prepare($_[1]);
 
 	if ($sth->execute < 0){
-- 
cgit