use File::Slurper instead of File::Slurp to better handle UTF8 in oui.txt

This commit is contained in:
Oliver Gorwits
2017-04-14 21:01:49 +01:00
parent 79b1520126
commit 6524ceefae
3 changed files with 4 additions and 3 deletions

View File

@@ -50,7 +50,7 @@ use Term::ANSIColor;
use Archive::Extract;
$Archive::Extract::PREFER_BIN = 1;
use File::Slurp ();
use File::Slurper 'read_lines';
use HTTP::Tiny;
use Digest::MD5;
use Try::Tiny;
@@ -195,7 +195,7 @@ sub deploy_oui {
my %data = ();
if (@ARGV) {
@lines = File::Slurp::read_file($ARGV[0], err_mode => 'quiet');
@lines = File::Slurper::read_lines($ARGV[0]);
}
else {
my $url = 'https://raw.githubusercontent.com/netdisco/upstream-sources/master/ieee/oui.txt';