Description: Make undefined behaviour defined and hence fix FTBFS with Perl 5.28
Author: Axel Beckert <abe@debian.org>
Bug-Debian: https://bugs.debian.org/899021
Forwarded: no

--- a/test/html/div.htm
+++ b/test/html/div.htm
@@ -200,7 +200,7 @@
 
 <P>
 
-[- $i = 0 ; while ($i < 10) { $ii[$i++] = "ii[$i] = $i" ; } -]
+[- $i = 0 ; while ($i < 10) { $ii[$i] = "ii[$i] = $i" ; $i++ ; } -]
 
 <table>
     <tr>
--- a/test/cmp/div.asc
+++ b/test/cmp/div.asc
@@ -208,7 +208,7 @@
 
 <P>
 
-[- $i = 0 ; while ($i < 10) { $ii[$i++] = "ii[$i] = $i" ; } -]
+[- $i = 0 ; while ($i < 10) { $ii[$i] = "ii[$i] = $i" ; $i++ ; } -]
 
 <table>
     <tr>
--- a/test/html/EmbperlObject/epodiv.htm
+++ b/test/html/EmbperlObject/epodiv.htm
@@ -202,7 +202,7 @@
 
 <P>
 
-[- $i = 0 ; while ($i < 10) { $ii[$i++] = "ii[$i] = $i" ; } -]
+[- $i = 0 ; while ($i < 10) { $ii[$i] = "ii[$i] = $i" ; $i++ ; } -]
 
 
 [- $i = 0 -]
--- a/test/html/match/div.asc
+++ b/test/html/match/div.asc
@@ -208,7 +208,7 @@
 
 <P>
 
-[- $i = 0 ; while ($i < 10) { $ii[$i++] = "ii[$i] = $i" ; } -]
+[- $i = 0 ; while ($i < 10) { $ii[$i] = "ii[$i] = $i" ; $i++ ; } -]
 
 <table>
     <tr>
--- a/test/html/match/div.htm
+++ b/test/html/match/div.htm
@@ -200,7 +200,7 @@
 
 <P>
 
-[- $i = 0 ; while ($i < 10) { $ii[$i++] = "ii[$i] = $i" ; } -]
+[- $i = 0 ; while ($i < 10) { $ii[$i] = "ii[$i] = $i" ; $i++ ; } -]
 
 <table>
     <tr>
--- a/test/html/nph/div.htm
+++ b/test/html/nph/div.htm
@@ -200,7 +200,7 @@
 
 <P>
 
-[- $i = 0 ; while ($i < 10) { $ii[$i++] = "ii[$i] = $i" ; } -]
+[- $i = 0 ; while ($i < 10) { $ii[$i] = "ii[$i] = $i" ; $i++ ; } -]
 
 <table>
     <tr>
--- a/test/html/ofunc/div.htm
+++ b/test/html/ofunc/div.htm
@@ -200,7 +200,7 @@
 
 <P>
 
-[- $i = 0 ; while ($i < 10) { $ii[$i++] = "ii[$i] = $i" ; } -]
+[- $i = 0 ; while ($i < 10) { $ii[$i] = "ii[$i] = $i" ; $i++ ; } -]
 
 <table>
     <tr>
--- a/test/html/opmask/opmasktrap.htm
+++ b/test/html/opmask/opmasktrap.htm
@@ -208,7 +208,7 @@
 
 <P>
 
-[- $i = 0 ; while ($i < 10) { $ii[$i++] = "ii[$i] = $i" ; } -]
+[- $i = 0 ; while ($i < 10) { $ii[$i] = "ii[$i] = $i" ; $i++ ; } -]
 
 <table>
     <tr>
--- a/test/html/safe/safe.htm
+++ b/test/html/safe/safe.htm
@@ -208,7 +208,7 @@
 
 <P>
 
-[- $i = 0 ; while ($i < 10) { $ii[$i++] = "ii[$i] = $i" ; } -]
+[- $i = 0 ; while ($i < 10) { $ii[$i] = "ii[$i] = $i" ; $i++ ; } -]
 
 <table>
     <tr>