take a few more things literally

[infobot.git] / src / Modules / Dict.pl

diff --git a/src/Modules/Dict.pl b/src/Modules/Dict.pl
index 05b3d0fad29c399b09b0708801a300c59b21d649..8fccf13b4f87b42cde12bac37a000f6d7dab6500 100644 (file)
--- 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;