This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regmatch(): remove remaining reads of reginput
authorDavid Mitchell <davem@iabyn.com>
Thu, 13 Sep 2012 19:28:01 +0000 (20:28 +0100)
committerDavid Mitchell <davem@iabyn.com>
Fri, 14 Sep 2012 07:49:35 +0000 (08:49 +0100)
In the remaining place where the value of reginput is used, its value
should always be equal to locinput, so it can be eliminated there.

This is part of a campaign to eliminate the reginput variable.

regexec.c

index c2aba47..316bcaf 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -6155,8 +6155,9 @@ no_silent:
     /* clean up; in particular, free all slabs above current one */
     LEAVE_SCOPE(oldsave);
 
-    assert(!result ||  reginput - PL_bostr >= 0);
-    return result ?  reginput - PL_bostr : -1;
+    assert(!result || reginput == locinput);
+    assert(!result ||  locinput - PL_bostr >= 0);
+    return result ?  locinput - PL_bostr : -1;
 }
 
 /*