Was deprecated::goto_construct supposed to be fatal in Perl 5.42.0? It appears not to be.

[trwyant]

Module:

Description

perldeprecation.pod appears to say that as of Perl 5.42 the behavior guarded by warnings category deprecated::goto_construct should become fatal. But under both 5.42.0 and 5.43.2 it appears to be still non-fatal.

Steps to Reproduce

perl -E 'my $x; goto FOO; if ( $x ) { FOO: say "Bar" }'; echo $?

Expected behavior

Under Perl versions 5.42 and above, I would expect no output to STDOUT and an error exit status. Instead, I get

Use of "goto" to jump into a construct is deprecated, and will become fatal in Perl 5.42 at -e line 1.
Bar
0

Perl configuration

Summary of my perl5 (revision 5 version 42 subversion 0) configuration:
   
  Platform:
    osname=darwin
    osvers=22.6.0
    archname=darwin-2level
    uname='darwin samwise.local 22.6.0 darwin kernel version 22.6.0: thu apr 24 20:25:14 pdt 2025; root:xnu-8796.141.3.712.2~1release_x86_64 x86_64 '
    config_args='-Dprefix=/trw/local/perl/5.42.0 -Dcf_email=wyant@cpan.org -Uinstallusrbinperl -e -d'
    hint=recommended
    useposix=true
    d_sigaction=define
    useithreads=undef
    usemultiplicity=undef
    use64bitint=define
    use64bitall=define
    uselongdouble=undef
    usemymalloc=n
    default_inc_excludes_dot=define
  Compiler:
    cc='cc'
    ccflags ='-fno-common -DPERL_DARWIN -DNO_THREAD_SAFE_QUERYLOCALE -DNO_POSIX_2008_LOCALE -DHAS_BROKEN_LANGINFO_CODESET -fno-strict-aliasing -pipe -fstack-protector-strong -I/usr/local/include -I/opt/local/include'
    optimize='-O3'
    cppflags='-fno-common -DPERL_DARWIN -DNO_THREAD_SAFE_QUERYLOCALE -DNO_POSIX_2008_LOCALE -DHAS_BROKEN_LANGINFO_CODESET -fno-strict-aliasing -pipe -fstack-protector-strong -I/usr/local/include -I/opt/local/include'
    ccversion=''
    gccversion='Apple LLVM 15.0.0 (clang-1500.1.0.2.5)'
    gccosandvers=''
    intsize=4
    longsize=8
    ptrsize=8
    doublesize=8
    byteorder=12345678
    doublekind=3
    d_longlong=define
    longlongsize=8
    d_longdbl=define
    longdblsize=16
    longdblkind=3
    ivtype='long'
    ivsize=8
    nvtype='double'
    nvsize=8
    Off_t='off_t'
    lseeksize=8
    alignbytes=8
    prototype=define
  Linker and Libraries:
    ld='cc'
    ldflags =' -fstack-protector-strong -L/usr/local/lib -L/opt/local/lib'
    libpth=/usr/local/lib /Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/lib/clang/15.0.0/lib /Applications/Xcode.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX.sdk/usr/lib /Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/lib /opt/local/lib /usr/lib
    libs=-lgdbm
    perllibs=
    libc=
    so=dylib
    useshrplib=false
    libperl=libperl.a
    gnulibc_version=''
  Dynamic Linking:
    dlsrc=dl_dlopen.xs
    dlext=bundle
    d_dlsymun=undef
    ccdlflags=' '
    cccdlflags=' '
    lddlflags='-bundle -undefined dynamic_lookup -L/usr/local/lib -L/opt/local/lib -fstack-protector-strong'


Characteristics of this binary (from libperl): 
  Compile-time options:
    HAS_LONG_DOUBLE
    HAS_STRTOLD
    HAS_TIMES
    PERLIO_LAYERS
    PERL_COPY_ON_WRITE
    PERL_DONT_CREATE_GVSV
    PERL_HASH_FUNC_SIPHASH13
    PERL_HASH_USE_SBOX32
    PERL_MALLOC_WRAP
    PERL_OP_PARENT
    PERL_PRESERVE_IVUV
    PERL_USE_SAFE_PUTENV
    USE_64_BIT_ALL
    USE_64_BIT_INT
    USE_LARGE_FILES
    USE_LOCALE
    USE_LOCALE_COLLATE
    USE_LOCALE_CTYPE
    USE_LOCALE_NUMERIC
    USE_LOCALE_TIME
    USE_PERLIO
    USE_PERL_ATOF
  Built under darwin
  Compiled at Jul  4 2025 09:22:28
  @INC:
    /trw/local/perl/5.42.0/lib/site_perl/5.42.0/darwin-2level
    /trw/local/perl/5.42.0/lib/site_perl/5.42.0
    /trw/local/perl/5.42.0/lib/5.42.0/darwin-2level
    /trw/local/perl/5.42.0/lib/5.42.0

[jkeenan]

Module:

Description

perldeprecation.pod appears to say that as of Perl 5.42 the behavior guarded by warnings category deprecated::goto_construct should become fatal. But under both 5.42.0 and 5.43.2 it appears to be still non-fatal.

Steps to Reproduce

perl -E 'my $x; goto FOO; if ( $x ) { FOO: say "Bar" }'; echo $?

Expected behavior

Under Perl versions 5.42 and above, I would expect no output to STDOUT and an error exit status. Instead, I get

Use of "goto" to jump into a construct is deprecated, and will become fatal in Perl 5.42 at -e line 1.
Bar
0

I believe you are correct. This behavior has actually been deprecated since perl-5.12 -- 15 years ago! AAMOF, I myself modified the code in November 2023 to indicate that fatalization would take place in perl-5.42.

@haarg, can you confirm that the if/else structure provided by @trwyant is an instance of the type of construct that should have been fatalized (similar to the while loop shown in the docs)?

[jkeenan]

Self-assigning; will try to work on this next week.