From 1d6f0a2d0806e60cc1351a18c7552fd82ef447c3 Mon Sep 17 00:00:00 2001
From: Luis Mochan <mochan@fis.unam.mx>
Date: Wed, 15 Dec 2021 11:59:20 -0600
Subject: Add test for extra chars at end

---
 challenge-143/wlmb/perl/ch-1.pl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/challenge-143/wlmb/perl/ch-1.pl b/challenge-143/wlmb/perl/ch-1.pl
index 96c3f72081..e1190540bd 100755
--- a/challenge-143/wlmb/perl/ch-1.pl
+++ b/challenge-143/wlmb/perl/ch-1.pl
@@ -16,6 +16,7 @@ foreach (@ARGV){
 	$original_string=$previous=$current=$_;
 	token();
 	my $result=expression();
+	die "Extra characters: $previous\n" if defined $token->[0];
 	say "$original_string=$result";
     }
     catch {
-- 
cgit