use Embperl;div>






















--_000_A5EB058B01FD431D9A6B49CA4930D6E4midwesternedu_--

--===============0727891160==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
Hangout mailing list
Hangout-at-nylxs.com
http://lists.mrbrklyn.com/mailman/listinfo/hangout

--===============0727891160==--

--===============0727891160==
Content-Language: en-US
Content-Type: multipart/alternative;
boundary="_000_A5EB058B01FD431D9A6B49CA4930D6E4midwesternedu_"

--_000_A5EB058B01FD431D9A6B49CA4930D6E4midwesternedu_
Content-Type: text/plain; charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

The following works under Perl 5.20.3, but not 5.30.0:

use Embperl;

my $template =3D <<'.';
[+ substr('ABCD',2,2) +]
.

my $body;

Embperl::Execute({input =3D> \$template, output =3D> \$body});

print "$body\n";

1;

Under 5.30.0, the substr value is empty.

Does anyone have any ideas about what may be happening?


[https://online.midwestern.edu/images/MaskUp.gif]

.. ..


--_000_A5EB058B01FD431D9A6B49CA4930D6E4midwesternedu_
Content-Type: text/html; charset="us-ascii"
Content-ID: <1FCFBDB84019B04EBCC15BB484B29FC2-at-namprd03.prod.outlook.com>
Content-Transfer-Encoding: quoted-printable



>

e-break: after-white-space;" class=3D"">
The following works under Perl 5.20.3, but not 5.30.0: