Author: turnstep
Date: Fri Jan 18 07:48:39 2008
New Revision: 10607
Modified:
DBD-Pg/trunk/t/99_perlcritic.t
Log:
Remove bare filehandle to make use strict; happier
Modified: DBD-Pg/trunk/t/99_perlcritic.t
==============================================================================
--- DBD-Pg/trunk/t/99_perlcritic.t (original)
+++ DBD-Pg/trunk/t/99_perlcritic.t Fri Jan 18 07:48:39 2008
@@ -39,7 +39,7 @@
}
-e $filename or die qq{Could not find "$filename"!};
- open my $oldstderr, '>&', STDERR or die 'Could not dupe STDERR';
+ open my $oldstderr, '>&', \*STDERR or die 'Could not dupe STDERR';
close STDERR or die qq{Could not close STDERR: $!};
my @vio = $critic->critique($filename);
open STDERR, '>&', $oldstderr or die 'Could not recreate STDERR'; ## no
critic
