Handle lines with leading whitespace properly

IsaacG · Mar 13, 2012 · ffef453 · ffef453
1 parent e55c9a1
commit ffef453
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/urltitles.pl b/urltitles.pl
@@ -26,8 +26,9 @@
 sub message_public {
     my ($server, $msg, $nick, $mask, $target) = @_;
 
-	my $out = "";
 	my ($word, $ws, $title, $response);
+	$msg =~ s/^(\s*)//; # Strip leading spaces at the begining of the line
+	my $out = $1;
 	while ($msg =~ m/\G(\S+)(\s*)/g)
 	{
 		($word, $ws) = ($1, $2); # word, whitespace