projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
I don't think trying to bracket the hires time with lores
[p5sagit/p5-mst-13.2.git]
/
pp_pack.c
diff --git
a/pp_pack.c
b/pp_pack.c
index
021c35c
..
705ee12
100644
(file)
--- a/
pp_pack.c
+++ b/
pp_pack.c
@@
-1386,7
+1386,7
@@
PP(pp_pack)
case 'a':
fromstr = NEXTFROM;
aptr = SvPV(fromstr, fromlen);
- if (pat[-1] == '*') {
+ if (pat[lengthcode ? -2 : -1] == '*') { /* -2 after '/' */
len = fromlen;
if (datumtype == 'Z')
++len;