NPO-Accounting/perl-business-paypal-api
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

use autodie to simplify code for open & $? == 0

Browse source
This commit is contained in:
Bradley M. Kuhn 2015-01-02 12:50:57 -05:00
parent 6be85a448e
commit 6c544426dd
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
t/OptionFields.t
View file

@ -2,7 +2,9 @@
# -*- mode: cperl -*-
use Test::More;
use strict;
use autodie qw(:all);
use Cwd;
if ( !$ENV{WPP_TEST} || !-f $ENV{WPP_TEST} ) {
plan skip_all =>
'No WPP_TEST env var set. Please see README to run tests';
@ -26,9 +28,7 @@ These tests verify the options work.
=cut
open(OPTIONS_PAY_HTML, ">", "options-payment.html")
or die "unable to open options-payment.html: $!";
open(OPTIONS_PAY_HTML, ">", "options-payment.html");
print OPTIONS_PAY_HTML <<_OPTIONS_PAYMENT_DATA_
<html>
<body>
@ -46,7 +46,7 @@ print OPTIONS_PAY_HTML <<_OPTIONS_PAYMENT_DATA_
</form></body></html>
_OPTIONS_PAYMENT_DATA_
;
close(OPTIONS_PAY_HTML); die "unable to write options-payment.html: $!" if ($? != 0);
close(OPTIONS_PAY_HTML);
my $cwd = getcwd;