Fixed thinko in pseudonymizr.sh

2016-09-03 14:43:11 +02:00 · 2016-09-03 14:43:11 +02:00 · dc4a890a00
commit dc4a890a00
parent 0fbb5a9e12
1 changed files with 1 additions and 1 deletions
--- a/pseudonymizr.pl
+++ b/pseudonymizr.pl
@ -62,7 +62,7 @@ if ( $registry_fh ) {
    my ($orig, $random);
    my ($h1, $h2, $assign) = $reverse_mode
        ? (\%subst => \%known, sub { ($random, $orig) = @_ })
-        : (\%known => \%known, sub { ($orig, $random) = @_ })
+        : (\%known => \%subst, sub { ($orig, $random) = @_ })
        ;

    while ( $_ = <$registry_fh> ) {