From 8b3ea811b0df4913e07581b33983afc743c237c4 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Sat, 2 May 2020 10:47:46 +0200 Subject: efa: Use utf8, switch to Perl license --- bin/efa | 16 +++++++--------- 1 file changed, 7 insertions(+), 9 deletions(-) diff --git a/bin/efa b/bin/efa index cc14274..e038b48 100755 --- a/bin/efa +++ b/bin/efa @@ -1,10 +1,8 @@ #!/usr/bin/env perl -## Copyright © 2009-2015 by Daniel Friesel -## License: WTFPL -## 0. You just DO WHAT THE FUCK YOU WANT TO. use strict; use warnings; use 5.010; +use utf8; no if $] >= 5.018, warnings => 'experimental::smartmatch'; @@ -330,10 +328,10 @@ if ( $opt->{exclude} ) { for my $field ( @{ $opt->{accessibility} } ) { given ($field) { when ( [qw[s no-stairs]] ) { $opt->{without_solid_stairs} = 1 } - when ( [qw[e no-escalators]] ) { $opt->{without_escalators} = 1 } - when ( [qw[E no-elevators]] ) { $opt->{without_elevators} = 1 } - when ( [qw[l nf low-platform]] ) { $opt->{with_low_platform} = 1 } - when ( [qw[w wheelchair]] ) { $opt->{with_wheelchair} = 1 } + when ( [qw[e no-escalators]] ) { $opt->{without_escalators} = 1 } + when ( [qw[E no-elevators]] ) { $opt->{without_elevators} = 1 } + when ( [qw[l nf low-platform]] ) { $opt->{with_low_platform} = 1 } + when ( [qw[w wheelchair]] ) { $opt->{with_wheelchair} = 1 } when ( [qw[i info]] ) { } # used for ignore_info default } } @@ -771,8 +769,8 @@ to to request via -> to. =head1 AUTHOR -Copyright (C) 2009-2018 by Daniel Friesel Ederf@finalrewind.orgE +Copyright (C) 2009-2020 by Daniel Friesel Ederf@finalrewind.orgE =head1 LICENSE - 0. You just DO WHAT THE FUCK YOU WANT TO. +This program is licensed under the same terms as Perl itself. -- cgit v1.2.3