commit - 5bbf948d8a8f6ccf54c014fdba20dfbaae107309
commit + d69b79026381ab7108b17b12ba835ce503f80539
blob - a715d95880413c1bb5a8527913b6bac1396b0fcf
blob + 88f6dcd174d3474712ab3d8a408f87467b61cb9c
--- plass
+++ plass
my $name = shift @ARGV;
my $file = name2file $name;
- my $p1 = readpass "Enter the password: ";
- my $p2 = readpass "Retype the password: ";
- die "Passwords don't match\n" if $p1 ne $p2;
-
- writepass($file, $p1);
+ my $pass = readpass "Enter the password: ";
+ writepass($file, $pass);
got_add $file;
got_ci "+$name";