diff options
Diffstat (limited to 'rt/t/ticket')
| -rw-r--r-- | rt/t/ticket/linking.t | 6 | ||||
| -rw-r--r-- | rt/t/ticket/scrips_batch.t | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/rt/t/ticket/linking.t b/rt/t/ticket/linking.t index 2ea3d58da..fc4761d47 100644 --- a/rt/t/ticket/linking.t +++ b/rt/t/ticket/linking.t @@ -38,14 +38,14 @@ my $q2 = RT::Queue->new($RT::SystemUser); ok ($id,$msg); my $commit_code = <<END; -open my \$file, "<$filename" or die "couldn't open $filename"; +open( my \$file, '<', "$filename" ) or die "couldn't open $filename"; my \$data = <\$file>; chomp \$data; \$data += 0; close \$file; \$RT::Logger->debug("Data is \$data"); -open \$file, ">$filename" or die "couldn't open $filename"; +open( \$file, '>', "$filename" ) or die "couldn't open $filename"; if (\$self->TransactionObj->Type eq 'AddLink') { \$RT::Logger->debug("AddLink"); print \$file \$data+1, "\n"; @@ -375,7 +375,7 @@ ok($link->LocalBase == 0, "LocalBase set correctly"); sub link_count { my $file = shift; - open my $fh, "<$file" or die "couldn't open $file"; + open ( my $fh, '<', $file ) or die "couldn't open $file"; my $data = <$fh>; close $fh; diff --git a/rt/t/ticket/scrips_batch.t b/rt/t/ticket/scrips_batch.t index f558d3bd4..f13881b65 100644 --- a/rt/t/ticket/scrips_batch.t +++ b/rt/t/ticket/scrips_batch.t @@ -45,7 +45,7 @@ my $sid; my ($tmp_fh, $tmp_fn) = tempfile(); my $code = <<END; -open my \$fh, '>', '$tmp_fn' or die "Couldn't open '$tmp_fn':\$!"; +open( my \$fh, '>', '$tmp_fn' ) or die "Couldn't open '$tmp_fn':\$!"; my \$batch = \$self->TicketObj->TransactionBatch; unless ( \$batch && \@\$batch ) { |