Fixes recursion bug in disambiguate_in().

[ohcount] / test / detect_files / perl_with_smiley.pl

# This is not prolog. Do not be confused by the smiley, which looks like a Prolog rule.
print "Hello, world :-)\n"