diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2015-07-23 14:36:12 +0200 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2015-07-23 14:36:12 +0200 |
| commit | fccc8eb5ef683a6fca9e9979ff592dd846fe44f1 (patch) | |
| tree | 51ffb422e0584f4609b6321b160ba44745e8fc99 | |
| parent | a088ce8b87e1d06f98d016572ef885b596a233b1 (diff) | |
efa: Do not rely on $opt->{accessibility} being initialized by GetOptions
| -rwxr-xr-x | bin/efa | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -240,6 +240,11 @@ if ( $opt->{accessibility} ) { @{ $opt->{accessibility} } = split( qr{,}, join( q{,}, @{ $opt->{accessibility} } ) ); } +else { + # GetOptions seems to implicitly initialize $opt->{accessibility} to an + # empty arrayref, but it's best not to rely on that. + $opt->{accessibility} = []; +} for my $field ( @{ $opt->{accessibility} } ) { given ($field) { |
