X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2FModules%2FDict.pl;h=8fccf13b4f87b42cde12bac37a000f6d7dab6500;hb=3936a3e1255582305fc4200485b71fa692e66bd3;hp=05b3d0fad29c399b09b0708801a300c59b21d649;hpb=8b54ff5060a6605e169acc0694cb00b89ed22cab;p=infobot.git

diff --git a/src/Modules/Dict.pl b/src/Modules/Dict.pl
index 05b3d0f..8fccf13 100644
--- a/src/Modules/Dict.pl
+++ b/src/Modules/Dict.pl
@@ -37,7 +37,7 @@ sub Dict {
     my $socket	= new IO::Socket;
     socket($socket, PF_INET, SOCK_STREAM, $proto) or return "error: socket: $!";
     eval {
-	local $SIG{ALRM} = sub { die "alarm" };
+	local $SIG{ALRM} = sub { die 'alarm' };
 	alarm 10;
 	connect($socket, sockaddr_in($port, inet_aton($server))) or die "error: connect: $!";
 	alarm 0;
@@ -110,7 +110,7 @@ sub Define {
     &::DEBUG("Dict: asking $dict.");
     print $socket "DEFINE $dict \"$query\"\n";
 
-    my $def = "";
+    my $def = '';
     my $term = $query;
 
     while (<$socket>) {
@@ -148,7 +148,7 @@ sub Define {
 		    $def =~ s/\s+$//;
 		    #&::DEBUG("def => '$def'.");
 		    $def =~ s/\[[^\]]*\]//g;
-		    push(@results, $def) if ($def ne "");
+		    push(@results, $def) if ($def ne '');
 		    $def = $text;
 		} elsif (/^\s+(.*)/) {
 		    $def .= $line;