Changeset 11253

Timestamp:

05/08/08 00:24:16 (5 years ago)

Author:

topia

Message:

* fix bug.

Files:

• lang/perl/tiarra/trunk/main/ExternalSocket.pm (modified) (1 diff)

lang/perl/tiarra/trunk/main/ExternalSocket.pm

@@ -82 +82 @@
             }
             else {
-                croak "$this_func, Arg{$key} was illegal reference: ".ref($args{$key})."\n";
+                croak "$this_func, Arg{$key} was illegal reference: ".ref($opts{$key})."\n";
             }
         }