view release on metacpan or  search on metacpan

t/26scalar-filehandle.t  view on Meta::CPAN

#!/usr/bin/perl
# This script is a regression test for:
#
# https://rt.cpan.org/Ticket/Display.html?id=54997
#
# Failure to read the ini file contents from a filehandle made out of a scalar
#
# <<< [patch] stat() on unopened filehandle warning thrown when using
# filehandle made from a scalar. >>>

use Test::More;

use strict;
use warnings;

use Carp qw(cluck);
use English qw(-no_match_vars);