diff options
author | Sergey Poznyakoff <gray@gnu.org> | 2018-07-12 09:09:03 +0300 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org> | 2018-07-12 09:09:03 +0300 |
commit | edfeb103b85e10aa9e6825d3b92c5888fb4dea94 (patch) | |
tree | a464544110c01c65098a282c459e54afdb41c455 | |
parent | 77946164120de0a135035621762779bfa50e82d0 (diff) | |
download | config-haproxy-edfeb103b85e10aa9e6825d3b92c5888fb4dea94.tar.gz config-haproxy-edfeb103b85e10aa9e6825d3b92c5888fb4dea94.tar.bz2 |
Drop dependency on autodiev1.01
* Changes: Update
* lib/Config/HAProxy.pm: Improve description of the write method.
* t/format.t: Pass string ref to write. Don't use autodie.
* t/select.t: Don't use autodie.
-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. | |||
2 | 2 | ||
3 | 1.01 Thu Jul 12 09:04:28 2018 | ||
4 | - set minimal required Perl version | ||
5 | - drop dependency on autodie | ||
6 | |||
3 | 1.00 Sun Jul 8 19:57:57 2018 | 7 | 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. | |||
373 | 373 | ||
374 | Writes configuration to the named file or file handle. If B<$file> is the | 374 | Writes configuration to the named file or file handle. First argument |
375 | can be a file name, file handle or a string reference. If it is the | ||
375 | only argument, the original indentation is preserved. Otherwise, if | 376 | only argument, the original indentation is preserved. Otherwise, if |
@@ -5,3 +5,2 @@ use warnings; | |||
5 | use Test::More; | 5 | use Test::More; |
6 | use autodie; | ||
7 | 6 | ||
@@ -16,5 +15,3 @@ isa_ok($hp,'Test::HAProxy'); | |||
16 | my $s; | 15 | my $s; |
17 | open(my $fh, '>', \$s); | 16 | $hp->write(\$s); |
18 | $hp->write($fh); | ||
19 | close $fh; | ||
20 | 17 | ||
@@ -35,5 +32,3 @@ backend out | |||
35 | 32 | ||
36 | open($fh, '>', \$s); | 33 | $hp->write(\$s, indent => 2); |
37 | $hp->write($fh, indent => 2); | ||
38 | close $fh; | ||
39 | 34 | ||
@@ -54,5 +49,3 @@ backend out | |||
54 | 49 | ||
55 | open($fh, '>', \$s); | 50 | $hp->write(\$s, indent => 2, reindent_comments => 1); |
56 | $hp->write($fh, indent => 2, reindent_comments => 1); | ||
57 | close $fh; | ||
58 | 51 | ||
@@ -73,5 +66,3 @@ backend out | |||
73 | 66 | ||
74 | open($fh, '>', \$s); | 67 | $hp->write(\$s, indent => 4, tabstop => [ 10, 24 ]); |
75 | $hp->write($fh, indent => 4, tabstop => [ 10, 24 ]); | ||
76 | close $fh; | ||
77 | 68 | ||
@@ -5,3 +5,2 @@ use warnings; | |||
5 | use Test::More; | 5 | use Test::More; |
6 | use autodie; | ||
7 | 6 | ||