Drop unused variables in pseudonymizr.pl

2016-09-03 15:40:35 +02:00 · 2016-09-03 15:40:35 +02:00 · 440453e4e6
commit 440453e4e6
parent 15f9ed2a98
1 changed files with 1 additions and 6 deletions
--- a/pseudonymizr.pl
+++ b/pseudonymizr.pl
@ -64,12 +64,7 @@ open $registry_fh, '<:utf8', $registry_file

 if ( $registry_fh ) {
    
-    my ($orig, $random);
-    my ($h1, $h2, $assign) = $reverse_mode
-        ? (\%subst => \%known)
-        : (\%known => \%subst)
-        ;
-
+    my ($h1, $h2) = $reverse_mode ? (\%subst => \%known) : (\%known => \%subst);
    while ( $_ = <$registry_fh> ) {
        chomp;
        my ($random, $orig) = split /\t/;