Author: jkeenan
Date: Wed Apr 11 16:07:09 2007
New Revision: 18155
Modified:
trunk/t/configure/01-options.t
Log:
Conform to Perl::Critic policy on no 2-arg opens.
Modified: trunk/t/configure/01-options.t
==============================================================================
--- trunk/t/configure/01-options.t (original)
+++ trunk/t/configure/01-options.t Wed Apr 11 16:07:09 2007
@@ -42,7 +42,7 @@
ok( defined $valid{verbose}, "verbose option found" );
ok( !defined $valid{$badoption}, "invalid option not found" );
-open my $FH, "$main::topdir/Configure.pl"
+open my $FH, '<', "$main::topdir/Configure.pl"
or croak "Unable to open handle to Configure.pl";
my $bigstr;
{
