Commit 49013eed authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Don't use STDERR to display choices (it doesn't have binmode utf8)

parent 26bd6e15

bin/efa

+2 −2
Original line number Diff line number Diff line
@@ -93,10 +93,10 @@ $content = $www->content; 
# ambiguous input

foreach (split(/<span class="errorTextBold">Bitte auswählen<\/span>/s, $content)) {

	if (/<select name="(?<what>(place|type|name)_(origin|destination))"/) {

		print STDERR "Ambiguous input for $+{what}\n";

		print "Ambiguous input for $+{what}\n";

	}

	while (/<option value="\d+(:\d+)*"( selected)?>(?<choice>[^<]+)<\/option>/gs) {

		print STDERR "\t$+{choice}\n";

		print "\t$+{choice}\n";

	}

}