498c498
<     $usercontext = '($@, $!, $^E, $,, $/, $\, $^W) = @saved;' .
---
>     $usercontext = '($@, $!, $^E, $,, $/, $\, $^W, $.) = @saved;' .
546c546
< 	  $usercontext = '($@, $!, $^E, $,, $/, $\, $^W) = @saved;' .
---
> 	  $usercontext = '($@, $!, $^E, $,, $/, $\, $^W, $.) = @saved;' .
1434c1434
<     ($@, $!, $^E, $,, $/, $\, $^W) = @saved;
---
>     ($@, $!, $^E, $,, $/, $\, $^W, $.) = @saved;
1496c1496
<     @saved = ($@, $!, $^E, $,, $/, $\, $^W);
---
>     @saved = ($@, $!, $^E, $,, $/, $\, $^W, $.);
1516a1517
>     local $saved[-1];		# Preserve the old value of $.