[Ftnpl-cvs] SF.net SVN: ftnpl:[619] trunk/modules/FTN/Packet
Brought to you by:
jame
Menu
▾
▴
[Ftnpl-cvs] SF.net SVN: ftnpl:[619] trunk/modules/FTN/Packet
|
From: <ja...@us...> - 2011-07-15 17:13:36
|
Revision: 619
http://ftnpl.svn.sourceforge.net/ftnpl/?rev=619&view=rev
Author: jame
Date: 2011-07-15 17:13:25 +0000 (Fri, 15 Jul 2011)
Log Message:
-----------
FTN::Packet v0.11
* develop:
Changes for version v0.11
Update RJC copyright years to include 2011.
Rewrite grep at line 356 in Packet.pm.
Correct where code ends in Packet.pm.
Correct POD email links in Packet.pm.
Explicitly set scope for VERSION, PKT, and nmesgs.
Localize usage of separator value in Packet.pm.
Corrections to EXPORT_OK in Packet.pm.
Correction to EXPORT_OK in Packet.pm.
Bump version to v0.11
Modified Paths:
--------------
trunk/modules/FTN/Packet/Changes
trunk/modules/FTN/Packet/README
trunk/modules/FTN/Packet/lib/FTN/Packet.pm
Modified: trunk/modules/FTN/Packet/Changes
===================================================================
--- trunk/modules/FTN/Packet/Changes 2011-07-15 17:13:19 UTC (rev 618)
+++ trunk/modules/FTN/Packet/Changes 2011-07-15 17:13:25 UTC (rev 619)
@@ -1,6 +1,15 @@
Revision history for Perl extension FTN::Packet
-0.10 Mon Jul 11 2011
+0.11 Mon Jul 11 2011 15:26
+ - Correct POD email links in Packet.pm.
+ - Rewrite grep at line 356 in Packet.pm.
+ - Corrections for EXPORT_OK in Packet.pm.
+ - Update RJC copyright years to include 2011.
+ - Localize usage of separator value in Packet.pm.
+ - Explicitly set scope for $VERSION, $PKT, and $nmesgs in Packet.pm.
+ - Correct where code ends in Packet.pm by moving the "1;" to line 398.
+
+0.10 Mon Jul 11 2011 12:30
- Explicitly use warnings in Packet.pm.
- Make loop iterators in Packet.pm lexical.
- Correct binmode call at line 332 of Packet.pm
Modified: trunk/modules/FTN/Packet/README
===================================================================
--- trunk/modules/FTN/Packet/README 2011-07-15 17:13:19 UTC (rev 618)
+++ trunk/modules/FTN/Packet/README 2011-07-15 17:13:25 UTC (rev 619)
@@ -1,6 +1,6 @@
FTN::Packet
-Copyright (c) 2001-2010 Robert James Clay. All Rights Reserved.
+Copyright (c) 2001-2011 Robert James Clay. All Rights Reserved.
This is free software; you can redistribute it and/or
mnodify it under the same terms as Perl itself.
Modified: trunk/modules/FTN/Packet/lib/FTN/Packet.pm
===================================================================
--- trunk/modules/FTN/Packet/lib/FTN/Packet.pm 2011-07-15 17:13:19 UTC (rev 618)
+++ trunk/modules/FTN/Packet/lib/FTN/Packet.pm 2011-07-15 17:13:25 UTC (rev 619)
@@ -2,7 +2,6 @@
use strict;
use warnings;
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
=head1 NAME
@@ -10,11 +9,11 @@
=head1 VERSION
-VERSION 0.10
+VERSION 0.11
=cut
-$VERSION = '0.10';
+our $VERSION = '0.11';
=head1 DESCRIPTION
@@ -38,8 +37,7 @@
# Do not simply export all your public functions/methods/constants.
@EXPORT = qw(
);
-@EXPORT_OK = qw( &read_ftn_packet(), &write_ftn_packet()
-
+@EXPORT_OK = qw( &read_ftn_packet &write_ftn_packet
);
=head1 FUNCTIONS
@@ -98,7 +96,7 @@
undef $cost;
$separator = $/;
- $/ = "\0";
+ local $/ = "\0";
$date_time = <$PKT>;
if (length($date_time) > 20) {
@@ -116,7 +114,7 @@
$subject =~ tr/\0-\037/\040-\100/; # mask control characters
$s = <$PKT>;
- $/ = $separator;
+ local $/ = $separator;
$s =~ s/\x8d/\r/g;
@lines = split(/\r/,$s);
@@ -258,7 +256,7 @@
my ($OutDir, $packet_info, $messages) = @_;
- my ($packet_file, @lines, $serialno, $buffer, $i, $k, $message_ref);
+ my ($packet_file, $PKT, @lines, $serialno, $buffer, $nmsgs, $i, $k, $message_ref);
my $EOL = "\n\r";
@@ -355,7 +353,7 @@
# get text body, translate LFs to CRs
@lines = ${$message_ref}{Body};
- grep(s/\n/\r/,@lines);
+ grep { s/\n/\r/ }, @lines;
# kill leading blank lines
@@ -397,6 +395,7 @@
return 0;
}
+1;
__END__
=head1 EXAMPLES
@@ -412,7 +411,7 @@
Code for the read_ftn_packet function was initially derived from the newmsgs subroutine
in the set of scripts for reading FTN packets (pkt2txt.pl, pkt2xml.pl, etc) by
-Russ Johnson L<ai...@us...> and Robert James Clay L<ja...@ro...>
+Russ Johnson L<mailto:ai...@us...> and Robert James Clay L<mailto:ja...@ro...>
available at the L<http://ftnpl.sourceforge.net>] project site. Initial code for
the write_ftn_packet function was derived from the bbs2pkt.pl of v0.1 of the bbsdbpl
scripts, also at the SourceForge project.
@@ -429,7 +428,7 @@
=head1 COPYRIGHT & LICENSE
-Copyright 2001-2010 Robert James Clay, all rights reserved.
+Copyright 2001-2011 Robert James Clay, all rights reserved.
Copyright 2001-2003 Russ Johnson, all rights reserved.
This program is free software; you can redistribute it and/or modify it
@@ -437,4 +436,3 @@
=cut
-1;
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
