commit - 4568ada0a6df6f406cadc2d8c201e7f4cc533c1a
commit + f9b1eaa1638574d50e6c1c822e4f7d34cc0b30e2
blob - 189247c27acb0ad22019e21b46ad47fec283cd3c
blob + 7ceb160c6acfe07b96245d761d3c7a38a637895d
--- plass
+++ plass
my $default_chars = $ENV{'PLASS_CHARS'} // '!-~';
my $default_length = $ENV{'PLASS_LENGTH'};
-if (!defined($default_length) || $default_length lt 0) {
+if (!defined($default_length) || $default_length <= 0) {
$default_length = 32;
}
open(my $fh, '<:raw', '/dev/random')
or die "can't open /dev/random: $!";
my $l = $length;
- while ($l gt 0) {
+ while ($l >= 0) {
read($fh, my $t, $length * 4)
or die "failed to read /dev/random: $!";
$t =~ s/[^$chars]//g;
my $pid = fork;
die "failed to fork: $!" unless defined $pid;
- if ($pid ne 0) {
+ if ($pid != 0) {
wait;
die "failed to commit changes" if $?;
return;
sub cmd_find {
GetOptions('h|?' => \&usage) or usage;
- usage if @ARGV gt 1;
+ usage if @ARGV > 1;
map { say $_ } passfind(shift @ARGV);
}
'n' => \$nop,
'q' => \$q,
) or usage;
- usage if @ARGV ne 1;
+ usage if @ARGV != 1;
my $name = shift @ARGV;
my $file = name2file $name;
# TODO: handle moving directories?
sub cmd_mv {
GetOptions('h|?' => \&usage) or usage;
- usage if @ARGV ne 2;
+ usage if @ARGV != 2;
my $a = shift @ARGV;
my $b = shift @ARGV;
'h|?' => \&usage,
'q' => \$q,
) or usage;
- usage if @ARGV ne 1;
+ usage if @ARGV != 1;
my $name = shift @ARGV;
my $file = name2file $name;