Deparse: fix 3-arg susbtr_left deparsing

v5.41.7-43-gcdbed2a40e introduced the OP_SUBSTR_LEFT op,
which is an optimised version of OP_SUBSTR for when the offset
is zero and the replacement string is missing or ''.

Unfortunately the deparsing for this OP missed out the closing
parenthesis when the replacement string wasn't present; i.e.:

    substr($lex, 0, 4);

deparsed as:

    substr($lex, 0, 4;

The fix is trivial.

Author: iabyn

lib/B/Deparse.pm

@@ -7,7 +7,7 @@
 # This is based on the module of the same name by Malcolm Beattie,
 # but essentially none of his code remains.
 
-package B::Deparse 1.83;
+package B::Deparse 1.84;
 use strict;
 use Carp;
 use B qw(class main_root main_start main_cv svref_2object opnumber perlstring
@@ -3485,7 +3485,7 @@ sub pp_substr_left {
 
    my $val = 'substr(' . $self->deparse($op->first->sibling, $cx)
              . ', 0, ' . $self->deparse($op->first->sibling->sibling->sibling, $cx)
-             . ( (($op->private & 7) == 3) ? '' : ", '')" );
+             . ( (($op->private & 7) == 3) ? ')' : ", '')" );
 
     if ($lex) {
         my $targ = $op->targ;

lib/B/Deparse.t

@@ -1825,6 +1825,14 @@ print sort(foo('bar'));
 substr(my $a, 0, 0) = (foo(), bar());
 $a++;
 ####
+# 3-arg substr (non-chop)
+my $str = 'ABCD';
+my $bbb = substr($str, 1, 1);
+####
+# 3-arg substr (chop)
+my $str = 'ABCD';
+my $aaa = substr($str, 0, 1);
+####
 # 4-arg substr (non-chop)
 my $str = 'ABCD';
 my $bbb = substr($str, 1, 1, '');