The "v" debugger command is broken

[choroba]

Description

The debugger's "v" command crashes instead of listing the source.

Steps to Reproduce

perl -de1
v
Undefined subroutine &DB::cmd_l called at /home/choroba/localperl/lib/5.35.1/perl5db.pl line 6034.
 at /home/choroba/localperl/lib/5.35.1/perl5db.pl line 6034.
 DB::cmd_v("v", "", 1) called at /home/choroba/localperl/lib/5.35.1/perl5db.pl line 4798
	DB::cmd_wrapper("v", "", 1) called at /home/choroba/localperl/lib/5.35.1/perl5db.pl line 4311
 DB::Obj::_handle_cmd_wrapper_commands(DB::Obj=HASH(0x27a65a8)) called at /home/choroba/localperl/lib/5.35.1/perl5db.pl line 3200
	DB::DB called at -e line 1
Debugged program terminated.  Use q to quit or R to restart,
use o inhibit_exit to avoid stopping after program termination,
h q, h R or h o to get additional info.

Expected behavior

The expected output is

1==>	1

Perl configuration

Summary of my perl5 (revision 5 version 35 subversion 1) configuration:
  Commit id: 44e4059baf939468ae61cb63c0c2871c40147dc3
  Platform:
    osname=linux
    osvers=5.3.18-lp152.92-default
    archname=x86_64-linux-thread-multi
    uname='linux triangle 5.3.18-lp152.92-default #1 smp mon sep 13 11:30:31 utc 2021 (d83471c) x86_64 x86_64 x86_64 gnulinux '
    config_args='-Dusethreads -Dprefix=/home/choroba/localperl -Dusedevel -des'
    hint=recommended
    useposix=true
    d_sigaction=define
    useithreads=define
    usemultiplicity=define
    use64bitint=define
    use64bitall=define
    uselongdouble=undef
    usemymalloc=n
    default_inc_excludes_dot=define
  Compiler:
    cc='cc'
    ccflags ='-D_REENTRANT -D_GNU_SOURCE -fwrapv -fno-strict-aliasing -pipe -fstack-protector-strong -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_FORTIFY_SOURCE=2'
    optimize='-O2'
    cppflags='-D_REENTRANT -D_GNU_SOURCE -fwrapv -fno-strict-aliasing -pipe -fstack-protector-strong -I/usr/local/include'
    ccversion=''
    gccversion='7.5.0'
    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'
    libpth=/usr/local/lib /usr/x86_64-suse-linux/lib /usr/lib /lib64 /usr/lib64 /lib /usr/local/lib64
    libs=-lpthread -ldl -lm -lcrypt -lutil -lc
    perllibs=-lpthread -ldl -lm -lcrypt -lutil -lc
    libc=libc-2.26.so
    so=so
    useshrplib=false
    libperl=libperl.a
    gnulibc_version='2.26'
  Dynamic Linking:
    dlsrc=dl_dlopen.xs
    dlext=so
    d_dlsymun=undef
    ccdlflags='-Wl,-E'
    cccdlflags='-fPIC'
    lddlflags='-shared -O2 -L/usr/local/lib -fstack-protector-strong'


Characteristics of this binary (from libperl): 
  Compile-time options:
    HAS_TIMES
    MULTIPLICITY
    PERLIO_LAYERS
    PERL_COPY_ON_WRITE
    PERL_DONT_CREATE_GVSV
    PERL_IMPLICIT_CONTEXT
    PERL_MALLOC_WRAP
    PERL_OP_PARENT
    PERL_PRESERVE_IVUV
    PERL_USE_DEVEL
    USE_64_BIT_ALL
    USE_64_BIT_INT
    USE_ITHREADS
    USE_LARGE_FILES
    USE_LOCALE
    USE_LOCALE_COLLATE
    USE_LOCALE_CTYPE
    USE_LOCALE_NUMERIC
    USE_LOCALE_TIME
    USE_PERLIO
    USE_PERL_ATOF
    USE_REENTRANT_API
    USE_THREAD_SAFE_LOCALE
  Built under linux
  Compiled at Oct  4 2021 16:56:01
  @INC:
    /home/choroba/localperl/lib/site_perl/5.35.1/x86_64-linux-thread-multi
    /home/choroba/localperl/lib/site_perl/5.35.1
    /home/choroba/localperl/lib/5.35.1/x86_64-linux-thread-multi
    /home/choroba/localperl/lib/5.35.1
    /home/choroba/localperl/lib/site_perl

[choroba]

Duplicate of #18900