In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/c1b879e57aecbfe520b3f44dd28472d1862f037d?hp=935c8d19ecf9ad3ea7589ffd1721e6ba1c671ed9>
- Log -----------------------------------------------------------------
commit c1b879e57aecbfe520b3f44dd28472d1862f037d
Author: Craig A. Berry <craigbe...@mac.com>
Date: Wed Jan 5 19:14:06 2011 -0600
Make newline on last record explicit.
On VMS, the last line written to a file will get a trailing newline
willy nilly. This has its advantages insofar as you never get the
"no newline at end of file" warnings from various utilities, but
reality conflicts with expectations when you explicitly test for
the last (or only) line *not* ending with newline, which is what
the recent addtion to ref.t (5e3072707906cc4cb8a364c4cf7c487df0300caa)
was doing. Adding an explicit newline makes everyone happy.
M t/op/ref.t
commit 63e9201e866868a5d97edac3c19055f25c3ca925
Author: Craig A. Berry <craigbe...@mac.com>
Date: Wed Jan 5 18:34:18 2011 -0600
Remove cc_runtime.h from the VMS build.
Follow-up to 1daf3b755691d9e2e52b73fcc1111714808c874a.
M vms/descrip_mms.template
-----------------------------------------------------------------------
Summary of changes:
t/op/ref.t | 8 ++++----
vms/descrip_mms.template | 7 ++-----
2 files changed, 6 insertions(+), 9 deletions(-)
diff --git a/t/op/ref.t b/t/op/ref.t
index 83b5cb8..0a39f10 100644
--- a/t/op/ref.t
+++ b/t/op/ref.t
@@ -381,16 +381,16 @@ curr_test($test + 2);
is(
runperl(
- stderr => 1, prog => 'sub DESTROY { print q-aaa- } bless \$a[0]'
+ stderr => 1, prog => 'sub DESTROY { print qq-aaa\n- } bless \$a[0]'
),
- "aaa", 'DESTROY called on array elem'
+ "aaa\n", 'DESTROY called on array elem'
);
is(
runperl(
stderr => 1,
- prog => '{ bless \...@x; *a=s...@x}}sub DESTROY { print q-aaa- }'
+ prog => '{ bless \...@x; *a=s...@x}}sub DESTROY { print qq-aaa\n- }'
),
- "aaa",
+ "aaa\n",
'DESTROY called on closure variable'
);
diff --git a/vms/descrip_mms.template b/vms/descrip_mms.template
index 4631efb..3445227 100644
--- a/vms/descrip_mms.template
+++ b/vms/descrip_mms.template
@@ -301,7 +301,7 @@ obj4 = regexec$(O) run$(O) scope$(O) sv$(O) taint$(O)
toke$(O) universal$(O) utf
mini_obj = perlmini$(O) $(obj1) $(obj2) $(obj3) $(obj4)
obj = $(obj0) $(obj1) $(obj2) $(obj3) $(obj4)
-h0 = av.h cc_runtime.h config.h cop.h cv.h embed.h embedvar.h
+h0 = av.h config.h cop.h cv.h embed.h embedvar.h
h1 = EXTERN.h form.h gv.h handy.h hv.h l1_char_class_tab.h INTERN.h intrpvar.h
h2 = iperlsys.h keywords.h mydtrace.h mg.h nostdio.h op.h op_reg_common.h
h3 = opcode.h opnames.h overload.h pad.h parser.h patchlevel.h perl.h
@@ -311,7 +311,7 @@ h5 = sv.h thread.h utf8.h util.h vmsish.h warnings.h
h7 = xsub.h $(SOCKH) $(THREADH)
h = $(h0) $(h1) $(h2) $(h3) $(h4) $(h5) $(h6) $(h7)
-ac0 = $(ARCHCORE)$(sockh) $(ARCHCORE)av.h $(ARCHCORE)cc_runtime.h
+ac0 = $(ARCHCORE)$(sockh) $(ARCHCORE)av.h
ac1 = $(ARCHCORE)config.h $(ARCHCORE)cop.h $(ARCHCORE)cv.h $(ARCHCORE)embed.h
ac2 = $(ARCHCORE)embedvar.h $(ARCHCORE)EXTERN.h $(ARCHCORE)fakethr.h
ac3 = $(ARCHCORE)form.h $(ARCHCORE)git_version.h $(ARCHCORE)gv.h
$(ARCHCORE)handy.h $(ARCHCORE)hv.h
@@ -1530,9 +1530,6 @@ $(SOCKARCH) : $(SOCKH)
$(ARCHCORE)av.h : av.h
@ If F$Search("$(ARCHDIR)CORE.dir").eqs."" Then Create/Directory
$(ARCHCORE)
Copy/NoConfirm/Log $(MMS$SOURCE) $(ARCHCORE)
-$(ARCHCORE)cc_runtime.h : cc_runtime.h
- @ If F$Search("$(ARCHDIR)CORE.dir").eqs."" Then Create/Directory
$(ARCHCORE)
- Copy/NoConfirm/Log $(MMS$SOURCE) $(ARCHCORE)
$(ARCHCORE)config.h : config.h
@ If F$Search("$(ARCHDIR)CORE.dir").eqs."" Then Create/Directory
$(ARCHCORE)
Copy/NoConfirm/Log $(MMS$SOURCE) $(ARCHCORE)
--
Perl5 Master Repository
