substr

1 files changed, 1 insertions, 1 deletions

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;
 	}