develooper Front page | perl.perl5.porters | Postings from November 2017

Re: [perl.git] branch blead updated. v5.27.6-89-g184f90dc41

Thread Next
From:
Steve Hay via perl5-porters
Date:
November 30, 2017 14:09
Subject:
Re: [perl.git] branch blead updated. v5.27.6-89-g184f90dc41
Message ID:
CADED=K6Sh-Pbi0zbZjCjoWRa0t=oSC_Lt2Ees0cOBM-czp=6ZQ@mail.gmail.com
On 30 November 2017 at 04:05, Tony Cook <tony@develop-help.com> wrote:
> In perl.git, the branch blead has been updated
>
> <https://perl5.git.perl.org/perl.git/commitdiff/184f90dc410cf3e66a5e682337ae54b3c9f9311f?hp=5f7616bdb343ddcfb39747caa700dcc75c2e2b66>
>
> - Log -----------------------------------------------------------------
> commit 184f90dc410cf3e66a5e682337ae54b3c9f9311f
> Author: Tony Cook <tony@develop-help.com>
> Date:   Fri Dec 1 01:05:07 2017 +1100
>
>     (perl #132506) deal with un-/partly implemented *at() functions
>

A typo in this commit caused the build to fail on Windows. I've
corrected it in the obvious manner in commit a06de4dcf2 but I'm still
getting t/run/switches.t failing test 131 - the expected output is not
produced, due to a perl.exe crashing with an access violation:

# Failed test 131 - chdir while in-place editing (no at-functions) at
./test.pl line 1074
#      got ''
# expected /(?^:^Cannot complete in-place edit of tmpinplace/foo: .* -
line 5, <> line \d+\.)/
# PROG:
# @ARGV = ("tmpinplace/foo");
# $^I = "";
# while (<>) {
#   chdir "..";
#   print "xx\n";
# }
# print "ok\n";
# STATUS: 1280
not ok 131 - chdir while in-place editing (no at-functions)

The crash can be reproduced by running "perl blah.t" with the above
CODE in blah.t, after creating the file tmpinplace/foo.

Stack trace is as follows (with pat being "Cannot complete in-place
edit of %-p: %s"):

>    perl527.dll!Perl_mg_get(interpreter * my_perl, sv * sv) Line 185    C
     perl527.dll!Perl_sv_2pv_flags(interpreter * my_perl, sv * const
sv, unsigned int * const lp, const long flags) Line 2944    C
     perl527.dll!Perl_sv_vcatpvfn_flags(interpreter * my_perl, sv *
const sv, const char * const pat, const unsigned int patlen, char * *
const args, sv * * const svargs, const unsigned int sv_count, bool *
const maybe_tainted, const unsigned long flags) Line 12464    C
     perl527.dll!Perl_sv_vsetpvfn(interpreter * my_perl, sv * const
sv, const char * const pat, const unsigned int patlen, char * * const
args, sv * * const svargs, const unsigned int sv_count, bool * const
maybe_tainted) Line 11016    C
     perl527.dll!Perl_vmess(interpreter * my_perl, const char * pat,
char * * args) Line 1484    C
     perl527.dll!Perl_vcroak(interpreter * my_perl, const char * pat,
char * * args) Line 1713    C
     perl527.dll!Perl_croak(interpreter * my_perl, const char * pat,
...) Line 1761    C
     perl527.dll!S_dir_unchanged(interpreter * my_perl, const char *
orig_pv, magic * mg) Line 1275    C
     perl527.dll!Perl_do_close(interpreter * my_perl, gv * gv, bool
not_implicit) Line 1363    C
     perl527.dll!Perl_nextargv(interpreter * my_perl, gv * gv, bool
nomagicopen) Line 1030    C
     perl527.dll!Perl_do_readline(interpreter * my_perl) Line 3265    C
     perl527.dll!Perl_pp_readline(interpreter * my_perl) Line 1287    C
     perl527.dll!Perl_runops_debug(interpreter * my_perl) Line 2495    C
     perl527.dll!S_run_body(interpreter * my_perl, long oldscope) Line 2594    C
     perl527.dll!perl_run(interpreter * my_perl) Line 2520    C
     perl527.dll!RunPerl(int argc, char * * argv, char * * env) Line 252    C++
     perl.exe!main(int argc, char * * argv, char * * env) Line 39    C

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About