summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
6db0031)
> Bareword "STDOUT" not allowed while "strict subs" in use.
my $testfile = 'testfile.plp';
not -f "$base/$testfile" or BAIL_OUT("$testfile exists");
my $testfile = 'testfile.plp';
not -f "$base/$testfile" or BAIL_OUT("$testfile exists");
-open ORGOUT, '>&', STDOUT;
+open ORGOUT, '>&', *STDOUT;
sub plp_is {
my ($test, $plp, $expect) = @_;
sub plp_is {
my ($test, $plp, $expect) = @_;