diff options
-rw-r--r-- | Changes | 4 | ||||
-rw-r--r-- | lib/Config/HAProxy.pm | 3 | ||||
-rw-r--r-- | t/format.t | 17 | ||||
-rw-r--r-- | t/select.t | 1 |
4 files changed, 10 insertions, 15 deletions
@@ -2,2 +2,6 @@ Revision history for Perl extension Config::HAProxy. +1.01 Thu Jul 12 09:04:28 2018 + - set minimal required Perl version + - drop dependency on autodie + 1.00 Sun Jul 8 19:57:57 2018 diff --git a/lib/Config/HAProxy.pm b/lib/Config/HAProxy.pm index 74eafa4..9a8d666 100644 --- a/lib/Config/HAProxy.pm +++ b/lib/Config/HAProxy.pm @@ -373,3 +373,4 @@ Saves the parse tree in the configuration file. -Writes configuration to the named file or file handle. If B<$file> is the +Writes configuration to the named file or file handle. First argument +can be a file name, file handle or a string reference. If it is the only argument, the original indentation is preserved. Otherwise, if @@ -5,3 +5,2 @@ use warnings; use Test::More; -use autodie; @@ -16,5 +15,3 @@ isa_ok($hp,'Test::HAProxy'); my $s; -open(my $fh, '>', \$s); -$hp->write($fh); -close $fh; +$hp->write(\$s); @@ -35,5 +32,3 @@ backend out -open($fh, '>', \$s); -$hp->write($fh, indent => 2); -close $fh; +$hp->write(\$s, indent => 2); @@ -54,5 +49,3 @@ backend out -open($fh, '>', \$s); -$hp->write($fh, indent => 2, reindent_comments => 1); -close $fh; +$hp->write(\$s, indent => 2, reindent_comments => 1); @@ -73,5 +66,3 @@ backend out -open($fh, '>', \$s); -$hp->write($fh, indent => 4, tabstop => [ 10, 24 ]); -close $fh; +$hp->write(\$s, indent => 4, tabstop => [ 10, 24 ]); @@ -5,3 +5,2 @@ use warnings; use Test::More; -use autodie; |