Updated PerlIO-via-QuotedPrint to CPAN version 0.07
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Fri, 8 Jun 2012 12:42:18 +0000 (13:42 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sun, 17 Jun 2012 20:26:49 +0000 (21:26 +0100)
  [DELTA]

0.07  5 April 2012
  Brought up to date with current code esthetics.  Verified it runs on
  5.14.2, threaded and unthreaded.

  28 January 2004
  Made sure the test-suite cleans up on multi-versioned systems.

Porting/Maintainers.pl
cpan/PerlIO-via-QuotedPrint/lib/PerlIO/via/QuotedPrint.pm
cpan/PerlIO-via-QuotedPrint/t/QuotedPrint.t

index af26180..bac5272 100755 (executable)
@@ -1443,7 +1443,7 @@ use File::Glob qw(:case);
 
     'PerlIO::via::QuotedPrint' => {
         'MAINTAINER'   => 'elizabeth',
-        'DISTRIBUTION' => 'ELIZABETH/PerlIO-via-QuotedPrint-0.06.tar.gz',
+        'DISTRIBUTION' => 'ELIZABETH/PerlIO-via-QuotedPrint-0.07.tar.gz',
         'FILES'        => q[cpan/PerlIO-via-QuotedPrint],
         'UPSTREAM'     => undef,
     },
index 2434191..11ba2e7 100644 (file)
@@ -1,20 +1,21 @@
 package PerlIO::via::QuotedPrint;
 
-# Set the version info
-# Make sure we do things by the book from now on
+$VERSION= '0.07';
 
-$VERSION = '0.06';
+# be as strict as possible
 use strict;
 
-# Make sure the encoding/decoding stuff is available
-
+# modules that we need
 use MIME::QuotedPrint (); # no need to pollute this namespace
 
-# Satisfy -require-
-
+# satisfy -require-
 1;
 
-#-----------------------------------------------------------------------
+#-------------------------------------------------------------------------------
+#
+# Standard Perl features
+#
+#-------------------------------------------------------------------------------
 #  IN: 1 class to bless with
 #      2 mode string (ignored)
 #      3 file handle of PerlIO layer below (ignored)
@@ -22,21 +23,21 @@ use MIME::QuotedPrint (); # no need to pollute this namespace
 
 sub PUSHED { bless \*PUSHED,$_[0] } #PUSHED
 
-#-----------------------------------------------------------------------
+#-------------------------------------------------------------------------------
 #  IN: 1 instantiated object (ignored)
 #      2 handle to read from
 # OUT: 1 decoded string
 
 sub FILL {
 
-# Read the line from the handle
-# Decode if there is something decode and return result or signal eof
-
-    my $line = readline( $_[1] );
-    (defined $line) ? MIME::QuotedPrint::decode_qp( $line ) : undef;
+    # decode and return
+    my $line= readline( $_[1] );
+    return ( defined $line )
+      ? MIME::QuotedPrint::decode_qp($line)
+      : undef;
 } #FILL
 
-#-----------------------------------------------------------------------
+#-------------------------------------------------------------------------------
 #  IN: 1 instantiated object (ignored)
 #      2 buffer to be written
 #      3 handle to write to
@@ -44,11 +45,14 @@ sub FILL {
 
 sub WRITE {
 
-# Encode whatever needs to be encoded and write to handle: indicate result
-
-    (print {$_[2]} MIME::QuotedPrint::encode_qp($_[1])) ? length($_[1]) : -1;
+    # encode and write to handle: indicate result
+    return ( print { $_[2] } MIME::QuotedPrint::encode_qp( $_[1] ) )
+      ? length( $_[1] )
+      : -1;
 } #WRITE
 
+#-------------------------------------------------------------------------------
+
 __END__
 
 =head1 NAME
@@ -59,11 +63,15 @@ PerlIO::via::QuotedPrint - PerlIO layer for quoted-printable strings
 
  use PerlIO::via::QuotedPrint;
 
- open( my $in,'<:via(QuotedPrint)','file.qp' )
-  or die "Can't open file.qp for reading: $!\n";
+ open( my $in, '<:via(QuotedPrint)', 'file.qp' )
+   or die "Can't open file.qp for reading: $!\n";
  
- open( my $out,'>:via(QuotedPrint)','file.qp' )
-  or die "Can't open file.qp for writing: $!\n";
+ open( my $out, '>:via(QuotedPrint)', 'file.qp' )
+   or die "Can't open file.qp for writing: $!\n";
+
+=head1 VERSION
+
+This documentation describes version 0.07.
 
 =head1 DESCRIPTION
 
@@ -87,8 +95,8 @@ Based on example that was initially added to MIME::QuotedPrint.pm for the
 
 =head1 COPYRIGHT
 
-Copyright (c) 2002-2003 Elizabeth Mattijsen.  All rights reserved.  This
-library is free software; you can redistribute it and/or modify it under
+Copyright (c) 2002, 2003, 2004, 2012 Elizabeth Mattijsen.  All rights reserved.
+This library is free software; you can redistribute it and/or modify it under
 the same terms as Perl itself.
 
 =cut
index 69eb625..33366bd 100644 (file)
@@ -3,11 +3,6 @@ BEGIN {                                # Magic Perl CORE pragma
         print "1..0 # Skip: PerlIO not used\n";
         exit 0;
     }
-    require Config;
-    if (($Config::Config{'extensions'} !~ m!\bPerlIO/via\b!) ){
-        print "1..0 # Skip -- Perl configured without PerlIO::via module\n";
-        exit 0;
-    }
     if (ord("A") == 193) {
         print "1..0 # Skip: EBCDIC\n";
     }
@@ -26,21 +21,11 @@ This is a t
 in it.
 EOD
 
-my $encoded;
-
-if (ord('A') == 193) { # EBCDIC.
-    $encoded = <<EOD;
-This is a t=51st for quoted-printable text that has h=44rdly any spe=48ial =
-characters
-in it.
-EOD
-} else {
-    $encoded = <<EOD;
+my $encoded = <<EOD;
 This is a t=E9st for quoted-printable text that has h=E0rdly any spe=E7ial =
 characters
 in it.
 EOD
-}
 
 # Create the encoded test-file
 
@@ -73,3 +58,4 @@ ok( close( $in ),                     'close decoding handle' );
 # Remove whatever we created now
 
 ok( unlink( $file ),                   "remove test file '$file'" );
+1 while unlink $file; # multiversioned filesystems