about summary refs log tree commit
diff options
context:
space:
mode:
authorGraham Barr <gbarr@pobox.com>2002-02-25 13:41:20 +0000
committerGraham Barr <gbarr@pobox.com>2002-02-25 13:41:20 +0000
commitd4b7c54c430515f74ec4b2284026b720424363e7 (patch)
treee44f60f5cbd134818a0372aad956f4e74a7ffc5d
parent501179223bd4c1679ef7d4cbaf9759074733e097 (diff)
downloadperl-libnet-d4b7c54c430515f74ec4b2284026b720424363e7.tar.gz
Net::Cmd
- Pod changes from Robin Barker

-rw-r--r--Net/Cmd.pm12
1 files changed, 5 insertions, 7 deletions
diff --git a/Net/Cmd.pm b/Net/Cmd.pm
index 40510e5..e6bdd2a 100644
--- a/Net/Cmd.pm
+++ b/Net/Cmd.pm
@@ -1,4 +1,4 @@
-# Net::Cmd.pm $Id: //depot/libnet/Net/Cmd.pm#26 $
+# Net::Cmd.pm $Id: //depot/libnet/Net/Cmd.pm#27 $
 #
 # Copyright (c) 1995-1997 Graham Barr <gbarr@pobox.com>. All rights reserved.
 # This program is free software; you can redistribute it and/or
@@ -509,10 +509,8 @@ Set the level of debug information for this object. If C<VALUE> is not given
 then the current state is returned. Otherwise the state is changed to
 C<VALUE> and the previous state returned.
 
-Set the level of debug information for this object. If no argument is
-given then the current state is returned. Otherwise the state is
-changed to C<$value>and the previous state returned.  Different packages
-may implement different levels of debug but, a  non-zero value result in
+Different packages
+may implement different levels of debug but a non-zero value results in
 copies of all commands and responses also being sent to STDERR.
 
 If C<VALUE> is C<undef> then the debug level will be set to the default
@@ -626,7 +624,7 @@ Returns a reference to a list containing the lines, or I<undef> upon failure.
 =head1 EXPORTS
 
 C<Net::Cmd> exports six subroutines, five of these, C<CMD_INFO>, C<CMD_OK>,
-C<CMD_MORE>, C<CMD_REJECT> and C<CMD_ERROR> ,correspond to possible results
+C<CMD_MORE>, C<CMD_REJECT> and C<CMD_ERROR>, correspond to possible results
 of C<response> and C<status>. The sixth is C<CMD_PENDING>.
 
 =head1 AUTHOR
@@ -641,6 +639,6 @@ it under the same terms as Perl itself.
 
 =for html <hr>
 
-I<$Id: //depot/libnet/Net/Cmd.pm#26 $>
+I<$Id: //depot/libnet/Net/Cmd.pm#27 $>
 
 =cut