Migrated to not use the fairly old and out of date notwhoami and moved to Data::Faker

master
silverwizard 5 years ago
parent 67845b9211
commit 776578da2e
  1. 7
      Paranoia

@ -5,7 +5,10 @@ use POSIX;
use PDF::API2; use PDF::API2;
use PDF::Table; use PDF::Table;
use List::Util 'shuffle'; use List::Util 'shuffle';
use Data::Faker;
my $faker = Data::Faker->new();
generate(); generate();
sub generate { sub generate {
@ -172,8 +175,8 @@ sub roll{
} }
sub name{ sub name{
my $n = `notwhoami|head -n1|cut -d' ' -f1`; my $n = $faker->name;
chomp $n; $n =~ s/ .*//;
return $n; return $n;
} }

Loading…
Cancel
Save