From d1db4ecc9ace480709b84f9b6f0cf64148a8fc9a Mon Sep 17 00:00:00 2001
From: Jules Laplace <jules@okfoc.us>
Date: Fri, 16 Jan 2015 09:40:10 -0500
Subject: substr

---
 xdcc.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/xdcc.pl b/xdcc.pl
index 5ba18f2..9140ee5 100755
--- a/xdcc.pl
+++ b/xdcc.pl
@@ -187,7 +187,7 @@ sub xdcc_report {
 }
 sub xdcc_add {
 	my ($path, $desc) = @_;
-	if ($path[0] == "~") {
+	if (substr($path, 0, 1) eq "~") {
 		$path =~ s/^~//;
 		$path = $ENV{"HOME"} . $path;
 	}
-- 
cgit v1.2.3-70-g09d2