"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "lib/Perl/Tidy/IOScalar.pm" between
Perl-Tidy-20191203.tar.gz and Perl-Tidy-20200110.tar.gz

About: Perltidy is a Perl script indenter and reformatter (beautifier).

IOScalar.pm  (Perl-Tidy-20191203):IOScalar.pm  (Perl-Tidy-20200110)
skipping to change at line 13 skipping to change at line 13
# This is a stripped down version of IO::Scalar # This is a stripped down version of IO::Scalar
# Given a reference to a scalar, it supplies either: # Given a reference to a scalar, it supplies either:
# a getline method which reads lines (mode='r'), or # a getline method which reads lines (mode='r'), or
# a print method which reads lines (mode='w') # a print method which reads lines (mode='w')
# #
##################################################################### #####################################################################
package Perl::Tidy::IOScalar; package Perl::Tidy::IOScalar;
use strict; use strict;
use warnings; use warnings;
use Carp; use Carp;
our $VERSION = '20191203'; our $VERSION = '20200110';
sub new { sub new {
my ( $package, $rscalar, $mode ) = @_; my ( $package, $rscalar, $mode ) = @_;
my $ref = ref $rscalar; my $ref = ref $rscalar;
if ( $ref ne 'SCALAR' ) { if ( $ref ne 'SCALAR' ) {
confess <<EOM; confess <<EOM;
------------------------------------------------------------------------ ------------------------------------------------------------------------
expecting ref to SCALAR but got ref to ($ref); trace follows: expecting ref to SCALAR but got ref to ($ref); trace follows:
------------------------------------------------------------------------ ------------------------------------------------------------------------
EOM EOM
 End of changes. 1 change blocks. 
1 lines changed or deleted 1 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)