1 files changed, 7 insertions, 1 deletions
diff --git a/t/comp/parser.t b/t/comp/parser.t
index ffa4dffed9..09d5632796 100644
--- a/t/comp/parser.t
+++ b/t/comp/parser.t
@@ -8,7 +8,7 @@ BEGIN {
     chdir 't' if -d 't';
 }
 
-print "1..170\n";
+print "1..171\n";
 
 sub failed {
     my ($got, $expected, $name) = @_;
@@ -503,6 +503,12 @@ eval 'method {} {$_,undef}';
 like $@, qq/^Can't call method "method" on unblessed reference at /,
      'method BLOCK {...} does not try to disambiguate';
 
+eval '#line 1 maggapom
+      if ($a>3) { $a ++; }
+      else {printf(1/0);}';
+is $@, "Illegal division by zero at maggapom line 2.\n",
+   'else {foo} line number (no space after {) [perl #122695]';
+
 # Add new tests HERE (above this line)
 
 # bug #74022: Loop on characters in \p{OtherIDContinue}