Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!etlnews.etl.go.jp!etlinn.etl.go.jp!etl.go.jp!trc.rwcp!rwc-tyo!news.iij.ad.jp!news.sun.co.jp!sunj-gate.Japan.Sun.COM!news2me.EBay.Sun.COM!venus.sun.com!cs.utexas.edu!howland.reston.ans.net!vixen.cso.uiuc.edu!newsfeed.internetmci.com!news.kddnet.ad.jp!sinfony-news!sonygw2!headgw!ptggw!watanabe
From: watanabe@ase.ptg.sony.co.jp (WATANABE Hirofumi)
Newsgroups: fj.lang.perl
Subject: patch for jperl5.002.patch5
Date: 11 Jul 1996 09:43:51 GMT
Organization: Sony Corp. Japan.
Lines: 50
Message-ID: <WATANABE.96Jul11184351@eban.ase.ptg.sony.co.jp>
NNTP-Posting-Host: 43.0.36.185
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:1079
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=1079&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

$BEOJU!w%=%K!<$G$9(B.

jperl5.002.patch5 $B$G$O(B /^./ $B$,F|K\8l0lJ8;z$H%^%C%A$7$^$;(B
$B$s(B.

% jperl -e '$_ = "$B$"(B"; /^./; print $&, "\n";' |od -x
0000000 a40a
0000002

% jperl -v

This is perl, version 5.003 with EMBED
built under solaris at Jul  1 1996 16:05:18
+ suidperl security patch

Copyright 1987-1996, Larry Wall

Japanization patch 4 by Yasushi Saito, 1996
Japanese EUC version.

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5.0 source kit.

%

$B$3$l$r=$@5$9$k(B patch $B$G$9(B.

--
$B$o$?$J$Y$R$m$U$_(B

--- regcomp.c.bakMon Jul  8 09:03:51 1996
+++ regcomp.cMon Jul  8 09:03:51 1996
@@ -230,7 +230,7 @@
 else if (OP(first) == BOUND || OP(first) == NBOUND)
     r->regstclass = first;
 else if (regkind[(U8)OP(first)] == BOL) {
-    r->reganch = ROPT_ANCH;
+    r->reganch |= ROPT_ANCH;
     first = NEXTOPER(first);
   goto again;
 }
@@ -239,7 +239,7 @@
     !(r->reganch & ROPT_ANCH) )
 {
     /* turn .* into ^.* with an implied $*=1 */
-    r->reganch = ROPT_ANCH | ROPT_IMPLICIT;
+    r->reganch |= ROPT_ANCH | ROPT_IMPLICIT;
     first = NEXTOPER(first);
   goto again;
 }
