bkuhn/small-hacks
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixed bad } closure; added emacs setting.

Browse source
This commit is contained in:
Bradley M. Kuhn 2010-06-27 12:13:29 -04:00
parent b294b91450
commit 8d2c951936
1 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
find-short-domain.plx
View file

@ -71,8 +71,14 @@ if ($LENGTH == 3) {
foreach my $let2 ('a' .. 'z', '0' .. '9') { foreach my $let2 ('a' .. 'z', '0' .. '9') {
CheckDomain("", $let1, $let2); CheckDomain("", $let1, $let2);
} }
} else {
print STDERR "domain length of $LENGTH is unsupported\n";
exit 1;
} }
} else {
print STDERR "domain length of $LENGTH is unsupported\n";
exit 1;
} }
###############################################################################
#
# Local variables:
# compile-command: "perl -c find-short-domain.plx"
# End: