The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

PerlIO::via::chop - PerlIO layer to chop the last byte outputted

SYNOPSIS

 use PerlIO::via::chop;

 open( my $in,'<:via(chop)','file.txt' );       # no effect
 open( my $out,'>:via(chop)','file.txt' );      # last byte is chopped

DESCRIPTION

This module implements a PerlIO layer that chops the last byte written to the file.

SEE ALSO

PerlIO::via

AUTHORS

Autrijus Tang <autrijus@autrijus.org>

COPYRIGHT

Copyright 2002 by Autrijus Tang <autrijus@autrijus.org>.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html