10 lines
231 B
Perl
10 lines
231 B
Perl
--- At.pm.orig Tue Sep 13 16:11:36 2005
|
|
+++ At.pm Sun Nov 19 21:58:16 2006
|
|
@@ -55,6 +55,7 @@
|
|
print ATCMD "$TAGID$params{TAG}\n" if $params{TAG};
|
|
print ATCMD $params{COMMAND};
|
|
close (ATCMD);
|
|
+ return 1 if ($?);
|
|
}
|
|
|
|
0;
|