package SelectSaver;
-our $VERSION = '1.03';
+our $VERSION = '1.02';
=head1 NAME
=cut
require 5.000;
-use Symbol q{qualify};
+use Carp;
+use Symbol;
sub new {
- @_ >= 1 && @_ <= 2 or do { require Carp; Carp::croak('usage: SelectSaver->new( [FILEHANDLE] )') };
+ @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )';
my $fh = select;
my $self = bless \$fh, $_[0];
select qualify($_[1], caller) if @_ > 1;
L<XXX> has been upgraded from version A.xx to B.yy.
-=item *
-
-L<SelectSaver> has been upgraded from version 1.02 to 1.03.
-
=back
=head2 Removed Modules and Pragmata