perl: missing minor v5.14 features

[sheet.git] / tools / mkwordlist

diff --git a/tools/mkwordlist b/tools/mkwordlist
index 7611b9f80706813c71ac124a88dafa2a34288c4d..7c71fae606c8233c76b3d64a656c2a43f5d086a2 100755 (executable)
--- a/tools/mkwordlist
+++ b/tools/mkwordlist
@@ -1,10 +1,10 @@
 #!/usr/bin/env perl
 use 5.014;
 use warnings;
 #!/usr/bin/env perl
 use 5.014;
 use warnings;

+use open ':std' => ':encoding(utf-8)';
+use lib $0 =~ s{[^/]+$}{..}r; # project root

 
 

-BEGIN { push @INC, '.' }

 use Shiar_Sheet::DB;
 use Shiar_Sheet::DB;

-use open ':std' => ':encoding(utf-8)';

 my $db = Shiar_Sheet::DB->connect;
 
 say 'use utf8;';
 my $db = Shiar_Sheet::DB->connect;
 
 say 'use utf8;';