Mercurial > dropbear
diff libtommath/parsenames.pl @ 1511:5916af64acd4 fuzz
merge from main
author | Matt Johnston <matt@ucc.asn.au> |
---|---|
date | Sat, 17 Feb 2018 19:29:51 +0800 |
parents | 8bba51a55704 |
children |
line wrap: on
line diff
--- a/libtommath/parsenames.pl Tue Jan 23 23:27:40 2018 +0800 +++ b/libtommath/parsenames.pl Sat Feb 17 19:29:51 2018 +0800 @@ -4,22 +4,25 @@ # wrapped at 80 chars # # Tom St Denis -@a = split(" ", $ARGV[1]); -$b = "$ARGV[0]="; -$len = length($b); +use strict; +use warnings; + +my @a = split ' ', $ARGV[1]; +my $b = $ARGV[0] . '='; +my $len = length $b; print $b; foreach my $obj (@a) { - $len = $len + length($obj); + $len = $len + length $obj; $obj =~ s/\*/\$/; if ($len > 100) { printf "\\\n"; - $len = length($obj); + $len = length $obj; } - print "$obj "; + print $obj . ' '; } print "\n\n"; -# $Source$ -# $Revision$ -# $Date$ +# ref: $Format:%D$ +# git commit: $Format:%H$ +# commit time: $Format:%ai$