diff options
| -rw-r--r-- | Net/FTP.pm | 6 | ||||
| -rw-r--r-- | Net/NNTP.pm | 8 |
2 files changed, 7 insertions, 7 deletions
@@ -22,7 +22,7 @@ use Net::Config; use Fcntl qw(O_WRONLY O_RDONLY O_APPEND O_CREAT O_TRUNC); # use AutoLoader qw(AUTOLOAD); -$VERSION = "2.68"; # $Id: //depot/libnet/Net/FTP.pm#72 $ +$VERSION = "2.68"; # $Id: //depot/libnet/Net/FTP.pm#73 $ @ISA = qw(Exporter Net::Cmd IO::Socket::INET); # Someday I will "use constant", when I am not bothered to much about @@ -629,7 +629,7 @@ sub mkdir $path = $ftp->_extract_path($path); } - # If the creation of the last element was not sucessful, see if we + # If the creation of the last element was not successful, see if we # can cd to it, if so then return path unless($ftp->ok) @@ -1729,6 +1729,6 @@ under the same terms as Perl itself. =for html <hr> -I<$Id: //depot/libnet/Net/FTP.pm#72 $> +I<$Id: //depot/libnet/Net/FTP.pm#73 $> =cut diff --git a/Net/NNTP.pm b/Net/NNTP.pm index 1c3ff5e..79261f8 100644 --- a/Net/NNTP.pm +++ b/Net/NNTP.pm @@ -14,7 +14,7 @@ use Carp; use Time::Local; use Net::Config; -$VERSION = "2.22"; # $Id: //depot/libnet/Net/NNTP.pm#17 $ +$VERSION = "2.22"; # $Id: //depot/libnet/Net/NNTP.pm#18 $ @ISA = qw(Net::Cmd IO::Socket::INET); sub new @@ -748,8 +748,8 @@ Retrieve the header, a blank line, then the body (text) of the specified article. If C<FH> is specified then it is expected to be a valid filehandle -and the result will be printed to it, on sucess a true value will be -returned. If C<FH> is not specified then the return value, on sucess, +and the result will be printed to it, on success a true value will be +returned. If C<FH> is not specified then the return value, on success, will be a reference to an array containg the article requested, each entry in the array will contain one line of the article. @@ -1117,6 +1117,6 @@ it under the same terms as Perl itself. =for html <hr> -I<$Id: //depot/libnet/Net/NNTP.pm#17 $> +I<$Id: //depot/libnet/Net/NNTP.pm#18 $> =cut |