Diff of the two buildlogs: -- --- b1/build.log 2025-10-10 13:17:06.997287756 +0000 +++ b2/build.log 2025-10-10 13:18:11.565365350 +0000 @@ -1,6 +1,6 @@ I: pbuilder: network access will be disabled during build -I: Current time: Fri Oct 10 01:16:24 -12 2025 -I: pbuilder-time-stamp: 1760102184 +I: Current time: Fri Nov 13 09:40:09 +14 2026 +I: pbuilder-time-stamp: 1794512409 I: Building the build Environment I: extracting base tarball [/var/cache/pbuilder/unstable-reproducible-base.tgz] I: copying local configuration @@ -24,53 +24,85 @@ dpkg-source: info: applying autopkgtest-path.patch I: using fakeroot in build. I: Installing the build-deps -I: user script /srv/workspace/pbuilder/2089394/tmp/hooks/D02_print_environment starting +I: user script /srv/workspace/pbuilder/3245712/tmp/hooks/D01_modify_environment starting +debug: Running on codethink03-arm64. +I: Changing host+domainname to test build reproducibility +I: Adding a custom variable just for the fun of it... +I: Changing /bin/sh to bash +'/bin/sh' -> '/bin/bash' +lrwxrwxrwx 1 root root 9 Nov 12 19:40 /bin/sh -> /bin/bash +I: Setting pbuilder2's login shell to /bin/bash +I: Setting pbuilder2's GECOS to second user,second room,second work-phone,second home-phone,second other +I: user script /srv/workspace/pbuilder/3245712/tmp/hooks/D01_modify_environment finished +I: user script /srv/workspace/pbuilder/3245712/tmp/hooks/D02_print_environment starting I: set - BUILDDIR='/build/reproducible-path' - BUILDUSERGECOS='first user,first room,first work-phone,first home-phone,first other' - BUILDUSERNAME='pbuilder1' - BUILD_ARCH='arm64' - DEBIAN_FRONTEND='noninteractive' + BASH=/bin/sh + BASHOPTS=checkwinsize:cmdhist:complete_fullquote:extquote:force_fignore:globasciiranges:globskipdots:hostcomplete:interactive_comments:patsub_replacement:progcomp:promptvars:sourcepath + BASH_ALIASES=() + BASH_ARGC=() + BASH_ARGV=() + BASH_CMDS=() + BASH_LINENO=([0]="12" [1]="0") + BASH_LOADABLES_PATH=/usr/local/lib/bash:/usr/lib/bash:/opt/local/lib/bash:/usr/pkg/lib/bash:/opt/pkg/lib/bash:. + BASH_SOURCE=([0]="/tmp/hooks/D02_print_environment" [1]="/tmp/hooks/D02_print_environment") + BASH_VERSINFO=([0]="5" [1]="3" [2]="3" [3]="1" [4]="release" [5]="aarch64-unknown-linux-gnu") + BASH_VERSION='5.3.3(1)-release' + BUILDDIR=/build/reproducible-path + BUILDUSERGECOS='second user,second room,second work-phone,second home-phone,second other' + BUILDUSERNAME=pbuilder2 + BUILD_ARCH=arm64 + DEBIAN_FRONTEND=noninteractive DEB_BUILD_OPTIONS='buildinfo=+all reproducible=+all parallel=12 ' - DISTRIBUTION='unstable' - HOME='/root' - HOST_ARCH='arm64' + DIRSTACK=() + DISTRIBUTION=unstable + EUID=0 + FUNCNAME=([0]="Echo" [1]="main") + GROUPS=() + HOME=/root + HOSTNAME=i-capture-the-hostname + HOSTTYPE=aarch64 + HOST_ARCH=arm64 IFS=' ' - INVOCATION_ID='ed384b74451d41b384b6538b01fc401d' - LANG='C' - LANGUAGE='en_US:en' - LC_ALL='C' - MAIL='/var/mail/root' - OPTIND='1' - PATH='/usr/sbin:/usr/bin:/sbin:/bin:/usr/games' - PBCURRENTCOMMANDLINEOPERATION='build' - PBUILDER_OPERATION='build' - PBUILDER_PKGDATADIR='/usr/share/pbuilder' - PBUILDER_PKGLIBDIR='/usr/lib/pbuilder' - PBUILDER_SYSCONFDIR='/etc' - PPID='2089394' - PS1='# ' - PS2='> ' + INVOCATION_ID=230c94d2d91940e588d9321a02a9d618 + LANG=C + LANGUAGE=nl_BE:nl + LC_ALL=C + MACHTYPE=aarch64-unknown-linux-gnu + MAIL=/var/mail/root + OPTERR=1 + OPTIND=1 + OSTYPE=linux-gnu + PATH=/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/i/capture/the/path + PBCURRENTCOMMANDLINEOPERATION=build + PBUILDER_OPERATION=build + PBUILDER_PKGDATADIR=/usr/share/pbuilder + PBUILDER_PKGLIBDIR=/usr/lib/pbuilder + PBUILDER_SYSCONFDIR=/etc + PIPESTATUS=([0]="0") + POSIXLY_CORRECT=y + PPID=3245712 PS4='+ ' - PWD='/' - SHELL='/bin/bash' - SHLVL='2' - SUDO_COMMAND='/usr/bin/timeout -k 18.1h 18h /usr/bin/ionice -c 3 /usr/bin/nice /usr/sbin/pbuilder --build --configfile /srv/reproducible-results/rbuild-debian/r-b-build.IEdWlq3c/pbuilderrc_TjUv --distribution unstable --hookdir /etc/pbuilder/first-build-hooks --debbuildopts -b --basetgz /var/cache/pbuilder/unstable-reproducible-base.tgz --buildresult /srv/reproducible-results/rbuild-debian/r-b-build.IEdWlq3c/b1 --logfile b1/build.log perlbrew_1.02-1.dsc' - SUDO_GID='109' - SUDO_HOME='/var/lib/jenkins' - SUDO_UID='104' - SUDO_USER='jenkins' - TERM='unknown' - TZ='/usr/share/zoneinfo/Etc/GMT+12' - USER='root' - _='/usr/bin/systemd-run' - http_proxy='http://192.168.101.4:3128' + PWD=/ + SHELL=/bin/bash + SHELLOPTS=braceexpand:errexit:hashall:interactive-comments:posix + SHLVL=3 + SUDO_COMMAND='/usr/bin/timeout -k 24.1h 24h /usr/bin/ionice -c 3 /usr/bin/nice -n 11 /usr/bin/unshare --uts -- /usr/sbin/pbuilder --build --configfile /srv/reproducible-results/rbuild-debian/r-b-build.IEdWlq3c/pbuilderrc_dWB1 --distribution unstable --hookdir /etc/pbuilder/rebuild-hooks --debbuildopts -b --basetgz /var/cache/pbuilder/unstable-reproducible-base.tgz --buildresult /srv/reproducible-results/rbuild-debian/r-b-build.IEdWlq3c/b2 --logfile b2/build.log perlbrew_1.02-1.dsc' + SUDO_GID=109 + SUDO_HOME=/var/lib/jenkins + SUDO_UID=104 + SUDO_USER=jenkins + TERM=unknown + TZ=/usr/share/zoneinfo/Etc/GMT-14 + UID=0 + USER=root + _='I: set' + http_proxy=http://192.168.101.4:3128 I: uname -a - Linux codethink04-arm64 6.12.48+deb13-cloud-arm64 #1 SMP Debian 6.12.48-1 (2025-09-20) aarch64 GNU/Linux + Linux i-capture-the-hostname 6.12.48+deb13-cloud-arm64 #1 SMP Debian 6.12.48-1 (2025-09-20) aarch64 GNU/Linux I: ls -l /bin - lrwxrwxrwx 1 root root 7 Aug 10 12:30 /bin -> usr/bin -I: user script /srv/workspace/pbuilder/2089394/tmp/hooks/D02_print_environment finished + lrwxrwxrwx 1 root root 7 Aug 10 2025 /bin -> usr/bin +I: user script /srv/workspace/pbuilder/3245712/tmp/hooks/D02_print_environment finished -> Attempting to satisfy build-dependencies -> Creating pbuilder-satisfydepends-dummy package Package: pbuilder-satisfydepends-dummy @@ -200,7 +232,7 @@ Get: 68 http://deb.debian.org/debian unstable/main arm64 libtest2-plugin-ioevents-perl all 0.001001-2 [6360 B] Get: 69 http://deb.debian.org/debian unstable/main arm64 libtest2-plugin-nowarnings-perl all 0.10-1 [15.8 kB] Get: 70 http://deb.debian.org/debian unstable/main arm64 perl-doc all 5.40.1-6 [8251 kB] -Fetched 25.8 MB in 0s (121 MB/s) +Fetched 25.8 MB in 0s (87.4 MB/s) Preconfiguring packages ... Selecting previously unselected package sensible-utils. (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 19958 files and directories currently installed.) @@ -503,7 +535,11 @@ fakeroot is already the newest version (1.37.1.2-1). 0 upgraded, 0 newly installed, 0 to remove and 0 not upgraded. I: Building the package -I: Running cd /build/reproducible-path/perlbrew-1.02/ && env PATH="/usr/sbin:/usr/bin:/sbin:/bin:/usr/games" HOME="/nonexistent/first-build" dpkg-buildpackage -us -uc -b && env PATH="/usr/sbin:/usr/bin:/sbin:/bin:/usr/games" HOME="/nonexistent/first-build" dpkg-genchanges -S > ../perlbrew_1.02-1_source.changes +I: user script /srv/workspace/pbuilder/3245712/tmp/hooks/A99_set_merged_usr starting +Not re-configuring usrmerge for unstable +I: user script /srv/workspace/pbuilder/3245712/tmp/hooks/A99_set_merged_usr finished +hostname: Name or service not known +I: Running cd /build/reproducible-path/perlbrew-1.02/ && env PATH="/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/i/capture/the/path" HOME="/nonexistent/second-build" dpkg-buildpackage -us -uc -b && env PATH="/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/i/capture/the/path" HOME="/nonexistent/second-build" dpkg-genchanges -S > ../perlbrew_1.02-1_source.changes dpkg-buildpackage: info: source package perlbrew dpkg-buildpackage: info: source version 1.02-1 dpkg-buildpackage: info: source distribution unstable @@ -522,39 +558,28 @@ Creating new 'Build' script for 'App-perlbrew' version '1.02' dh_auto_build /usr/bin/perl Build -cp lib/App/Perlbrew/Sys.pm blib/lib/App/Perlbrew/Sys.pm -cp lib/App/Perlbrew/Path/Root.pm blib/lib/App/Perlbrew/Path/Root.pm +cp lib/App/perlbrew.pm blib/lib/App/perlbrew.pm cp lib/App/Perlbrew/HTTP.pm blib/lib/App/Perlbrew/HTTP.pm +cp lib/App/Perlbrew/Path/Installations.pm blib/lib/App/Perlbrew/Path/Installations.pm +cp script/perlbrew blib/script/perlbrew cp lib/App/Perlbrew/Path/Installation.pm blib/lib/App/Perlbrew/Path/Installation.pm -cp lib/App/perlbrew.pm blib/lib/App/perlbrew.pm -cp lib/App/Perlbrew/Patchperl.pm blib/lib/App/Perlbrew/Patchperl.pm cp lib/App/Perlbrew/Util.pm blib/lib/App/Perlbrew/Util.pm cp lib/App/Perlbrew/Path.pm blib/lib/App/Perlbrew/Path.pm -cp script/perlbrew blib/script/perlbrew -cp lib/App/Perlbrew/Path/Installations.pm blib/lib/App/Perlbrew/Path/Installations.pm +cp lib/App/Perlbrew/Patchperl.pm blib/lib/App/Perlbrew/Patchperl.pm +cp lib/App/Perlbrew/Path/Root.pm blib/lib/App/Perlbrew/Path/Root.pm +cp lib/App/Perlbrew/Sys.pm blib/lib/App/Perlbrew/Sys.pm dh_auto_test /usr/bin/perl Build test --verbose 1 t/00.load.t ............................... -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. ok 1 - use App::perlbrew; 1..1 ok t/01.options.t ............................ -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. # $VAR1 = bless( { -# 'sitecustomize' => '', -# 'variation' => '', -# '64int' => '', # 'both' => [], -# 'reverse' => 0, -# 'debug' => '', -# 'clang' => '', -# 'noman' => '', -# 'verbose' => 0, -# 'force' => 0, -# 'root' => bless( { -# 'path' => '/build/reproducible-path/perlbrew-1.02/debian/.debhelper/generated/_source/home/perl5/perlbrew' -# }, 'App::Perlbrew::Path::Root' ), +# 'ld' => '', # 'original_argv' => [ # 'install', # '-n', @@ -564,32 +589,43 @@ # '-Uusemymalloc', # '-Accflags' # ], +# 'variation' => '', +# 'quiet' => 0, +# 'root' => bless( { +# 'path' => '/build/reproducible-path/perlbrew-1.02/debian/.debhelper/generated/_source/home/perl5/perlbrew' +# }, 'App::Perlbrew::Path::Root' ), +# 'noman' => '', +# '64all' => '', # 'D' => [ # 'usethreads', # 'DEBUGGING' # ], -# 'yes' => 0, -# 'A' => [ -# 'ccflags' -# ], -# 'quiet' => 0, -# '64all' => '', -# 'multi' => '', # 'notest' => 1, -# 'args' => [ -# 'install', -# 'perl-5.12.1' -# ], # 'append' => '', +# 'multi' => '', +# 'thread' => '', # 'U' => [ # 'usemymalloc' # ], -# 'thread' => '', +# 'debug' => '', +# 'args' => [ +# 'install', +# 'perl-5.12.1' +# ], # 'destdir' => '', -# 'ld' => '', +# 'clang' => '', +# 'A' => [ +# 'ccflags' +# ], # 'home' => bless( { # 'path' => '/build/reproducible-path/perlbrew-1.02/debian/.debhelper/generated/_source/home/.perlbrew' -# }, 'App::Perlbrew::Path' ) +# }, 'App::Perlbrew::Path' ), +# '64int' => '', +# 'sitecustomize' => '', +# 'force' => 0, +# 'verbose' => 0, +# 'reverse' => 0, +# 'yes' => 0 # }, 'App::perlbrew' ); ok 1 ok 2 - -D @@ -598,19 +634,43 @@ ok 5 - not quiet ok 6 - notest # $VAR1 = bless( { -# 'variation' => '', +# 'yes' => 0, +# 'verbose' => 0, +# 'reverse' => 0, +# 'force' => 0, # 'sitecustomize' => '', +# 'home' => bless( { +# 'path' => '/build/reproducible-path/perlbrew-1.02/debian/.debhelper/generated/_source/home/.perlbrew' +# }, 'App::Perlbrew::Path' ), # '64int' => '', -# 'both' => [], -# 'debug' => '', -# 'reverse' => 0, +# 'destdir' => '', +# 'A' => [ +# 'ccflags' +# ], # 'clang' => '', -# 'noman' => '', -# 'verbose' => 0, -# 'force' => 0, +# 'args' => [ +# 'install', +# 'perl-5.12.1' +# ], +# 'debug' => '', +# 'multi' => '', +# 'U' => [ +# 'usemymalloc' +# ], +# 'thread' => '', +# 'D' => [ +# 'usethreads', +# 'DEBUGGING' +# ], +# 'append' => '', +# '64all' => '', # 'root' => bless( { # 'path' => '/build/reproducible-path/perlbrew-1.02/debian/.debhelper/generated/_source/home/perl5/perlbrew' # }, 'App::Perlbrew::Path::Root' ), +# 'noman' => '', +# 'quiet' => 1, +# 'variation' => '', +# 'ld' => '', # 'original_argv' => [ # 'install', # '--quiet', @@ -623,31 +683,7 @@ # '-A', # 'ccflags' # ], -# 'D' => [ -# 'usethreads', -# 'DEBUGGING' -# ], -# 'A' => [ -# 'ccflags' -# ], -# 'yes' => 0, -# 'quiet' => 1, -# '64all' => '', -# 'multi' => '', -# 'args' => [ -# 'install', -# 'perl-5.12.1' -# ], -# 'append' => '', -# 'U' => [ -# 'usemymalloc' -# ], -# 'thread' => '', -# 'destdir' => '', -# 'ld' => '', -# 'home' => bless( { -# 'path' => '/build/reproducible-path/perlbrew-1.02/debian/.debhelper/generated/_source/home/.perlbrew' -# }, 'App::Perlbrew::Path' ) +# 'both' => [] # }, 'App::perlbrew' ); ok 7 ok 8 - -D @@ -658,7 +694,7 @@ 1..12 ok t/02.format_perl_version.t ................ -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. 1..4 ok 1 - 5.008008 -> 5.8.8 ok 2 - 5.010001 -> 5.10.1 @@ -666,7 +702,7 @@ ok 4 - 5.008 -> 5.8.0 ok t/03.test_get_available_versions.t ........ -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. 1..12 ok 1 - Correct number of releases found ok 2 - perl-5.28.0 found @@ -682,7 +718,7 @@ ok 12 - perl-5.8.9 found ok t/04.find_available_perls.t ............... -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. 1..52 ok 1 - found 11 releases ok 2 - 5.13 branch @@ -738,11 +774,11 @@ ok 52 - age 14 years, 5 months found ok t/05.get_current_perl.t ................... -# Seeded srand with seed '20251010' from local date. -# (mock) installed perl-5.12.3 to /tmp/bSjTD4JZnj/perls/perl-5.12.3 -# (mock) installed perl-5.12.4 to /tmp/bSjTD4JZnj/perls/perl-5.12.4 -# (mock) installed perl-5.14.1 to /tmp/bSjTD4JZnj/perls/perl-5.14.1 -# (mock) installed perl-5.14.2 to /tmp/bSjTD4JZnj/perls/perl-5.14.2 +# Seeded srand with seed '20261112' from local date. +# (mock) installed perl-5.12.3 to /tmp/RDVAslof8s/perls/perl-5.12.3 +# (mock) installed perl-5.12.4 to /tmp/RDVAslof8s/perls/perl-5.12.4 +# (mock) installed perl-5.14.1 to /tmp/RDVAslof8s/perls/perl-5.14.1 +# (mock) installed perl-5.14.2 to /tmp/RDVAslof8s/perls/perl-5.14.2 ok 1 - perlbrew version { ok 1 - perlbrew version matches 1..1 @@ -765,7 +801,7 @@ ok t/06.installed_perls.t .................... skipped: No perl installation under PERLBREW_ROOT t/07.argv.t ............................... -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. ok 1 ok 2 ok 3 @@ -775,38 +811,38 @@ ok t/08.error_available.t .................... # perl -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. ok 1 - got Error from available ok 2 - got Error from available_perl_distributions 1..2 ok t/08.error_install.t ...................... -Fetching perl 5.12.3 as /tmp/bSjTD4JZnj/dists/perl-5.12.3.tar.bz2 -Download https://cpan.metacpan.org/authors/id/R/RJ/RJBS/perl-5.12.3.tar.bz2 to /tmp/bSjTD4JZnj/dists/perl-5.12.3.tar.bz2 -# Seeded srand with seed '20251010' from local date. +Fetching perl 5.12.3 as /tmp/RDVAslof8s/dists/perl-5.12.3.tar.bz2 +Download https://cpan.metacpan.org/authors/id/R/RJ/RJBS/perl-5.12.3.tar.bz2 to /tmp/RDVAslof8s/dists/perl-5.12.3.tar.bz2 +# Seeded srand with seed '20261112' from local date. ok 1 1..1 ok t/08.error_install_blead.t ................ -Fetching perl-blead as /tmp/bSjTD4JZnj/dists/blead.tar.gz -# Seeded srand with seed '20251010' from local date. +Fetching perl-blead as /tmp/RDVAslof8s/dists/blead.tar.gz +# Seeded srand with seed '20261112' from local date. ok 1 - install blead-perl failed -# Fetching perl-blead as /tmp/bSjTD4JZnj/dists/blead.tar.gz +# Fetching perl-blead as /tmp/RDVAslof8s/dists/blead.tar.gz ok 2 - install blead failed 1..2 ok t/08.error_install_cpanm.t ................ -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. ok 1 1..1 ok t/08.error_install_cpm.t .................. -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. ok 1 1..1 ok t/09.exit_status.t ........................ -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. ok 1 - unknown-command error Unknown command: `unknown-command`. Typo? ok 2 - unknown-command command error @@ -815,17 +851,18 @@ 1..3 ok t/10.resolve.t ............................ -# Seeded srand with seed '20251010' from local date. -# (mock) installed perl-5.8.9 to /tmp/JZnjOaY1r6/perls/perl-5.8.9 -# (mock) installed perl-5.14.0 to /tmp/JZnjOaY1r6/perls/perl-5.14.0 -# (mock) installed 5.8.9 to /tmp/JZnjOaY1r6/perls/5.8.9 -# (mock) installed perl-shiny to /tmp/JZnjOaY1r6/perls/perl-shiny +# Seeded srand with seed '20261112' from local date. +# (mock) installed perl-5.8.9 to /tmp/of8sM_hSDD/perls/perl-5.8.9 +# (mock) installed perl-5.14.0 to /tmp/of8sM_hSDD/perls/perl-5.14.0 +# (mock) installed 5.8.9 to /tmp/of8sM_hSDD/perls/5.8.9 +# (mock) installed perl-shiny to /tmp/of8sM_hSDD/perls/perl-shiny ok 1 - App::perlbrew->resolve_installation_name { - ok 1 - returns undef if no proper installation can be found { + ok 1 - returns `perl-$shortname` if that happens to be a proper installation name. { ok 1 - 1..1 + ok 2 + 1..2 } - ok 2 - returns `perl-$shortname` if that happens to be a proper installation name. { + ok 2 - takes exactly one argument, which means the `shortname` that needs to be resolved to a `longname` { ok 1 ok 2 1..2 @@ -836,12 +873,7 @@ ok 3 1..3 } - ok 4 - takes exactly one argument, which means the `shortname` that needs to be resolved to a `longname` { - ok 1 - ok 2 - 1..2 - } - ok 5 - with lib names { + ok 4 - with lib names { ok 1 - returns current perl version when only a libname is given { ok 1 ok 2 @@ -854,12 +886,16 @@ } 1..2 } + ok 5 - returns undef if no proper installation can be found { + ok 1 + 1..1 + } 1..5 } 1..1 ok t/11.editdist.t ........................... -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. ok 1 ok 2 ok 3 @@ -869,15 +905,15 @@ 1..6 ok t/11.root_from_arg.t ...................... -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. ok 1 - App::perlbrew\#root method { - ok 1 - should return the instance property of 'root' if set { + ok 1 - should default to $ENV{HOME} subpath { ok 1 - Return value comparison failed ok 2 - Global $PERLBREW_ROOT comparison failed ok 3 - App::Perlbrew::Path::Root=HASH->isa('App::Perlbrew::Path::Root') 1..3 } - ok 2 - should default to $ENV{HOME} subpath { + ok 2 - should return $App::perlbrew::PERLBREW_ROOT if provided { ok 1 - Return value comparison failed ok 2 - Global $PERLBREW_ROOT comparison failed ok 3 - App::Perlbrew::Path::Root=HASH->isa('App::Perlbrew::Path::Root') @@ -889,7 +925,7 @@ ok 3 - App::Perlbrew::Path::Root=HASH->isa('App::Perlbrew::Path::Root') 1..3 } - ok 4 - should return $App::perlbrew::PERLBREW_ROOT if provided { + ok 4 - should return the instance property of 'root' if set { ok 1 - Return value comparison failed ok 2 - Global $PERLBREW_ROOT comparison failed ok 3 - App::Perlbrew::Path::Root=HASH->isa('App::Perlbrew::Path::Root') @@ -909,9 +945,9 @@ 1..2 ok t/12.destdir.t ............................ -# Seeded srand with seed '20251010' from local date. -# PERLBREW_ROOT set to /tmp/bSjTD4JZnj -# DESTDIR set to /tmp/UzMUiunwgj +# Seeded srand with seed '20261112' from local date. +# PERLBREW_ROOT set to /tmp/RDVAslof8s +# DESTDIR set to /tmp/mjvEdOnhXW ok 1 - No perls yet installed { ok 1 - no perls installed 1..1 @@ -930,8 +966,8 @@ 1..3 ok t/12.sitecustomize.t ...................... -# Seeded srand with seed '20251010' from local date. -# PERLBREW_ROOT set to /tmp/bSjTD4JZnj +# Seeded srand with seed '20261112' from local date. +# PERLBREW_ROOT set to /tmp/RDVAslof8s ok 1 - No perls yet installed { ok 1 - no perls installed 1..1 @@ -952,9 +988,14 @@ ok # Workflow build 'when the given versionis not found is CPAN::Perl::Releases' is empty at t/13.perl_release.t around lines 27 -> 44. t/13.perl_release.t ....................... -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. ok 1 - App::perlbrew\#perl_release method { - ok 1 - given a valid perl version { + ok 1 - when the given versionis not found is CPAN::Perl::Releases { + ok 1 - perl-5.14.2.tar.gz + ok 2 - https://cpan.metacpan.org/authors/id/SOMEONE/perl-5.14.2.tar.gz + 1..2 + } + ok 2 - given a valid perl version { ok 1 - returns the perl dist tarball file name, and its download url { ok 1 ok 2 @@ -968,17 +1009,12 @@ } 1..1 } - ok 2 - when the given versionis not found is CPAN::Perl::Releases { - ok 1 - perl-5.14.2.tar.gz - ok 2 - https://cpan.metacpan.org/authors/id/SOMEONE/perl-5.14.2.tar.gz - 1..2 - } 1..2 } 1..1 ok t/14.perl_version_parsing.t ............... -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. ok 1 - perl_version_to_integer { 1..103 ok 1 - 5.003_07 < 5.004 @@ -1301,11 +1337,11 @@ } 1..3 ok -# /tmp/bSjTD4JZnj/build/test/test +# /tmp/RDVAslof8s/build/test/test t/15.no-reuse-build-dir.t ................. -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. 1..6 -# PERLBREW_ROOT set to /tmp/bSjTD4JZnj +# PERLBREW_ROOT set to /tmp/RDVAslof8s ok 1 - App::perlbrew object created ok 2 - Test file 3 created ok 3 - Test tarball extracted as expected @@ -1314,7 +1350,7 @@ ok 6 - Test file 2 exists ok t/16.release-detail.t ..................... -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. ok 1 - parse "perl-5.18.2" { ok 1 ok 2 @@ -1336,7 +1372,7 @@ 1..2 ok t/18.release-detail-perl-local.t .......... -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. ok 1 - no error ok 2 - tarball_url is defined ok 3 - tarball_url is defined @@ -1347,7 +1383,7 @@ t/18.release-detail-perl-remote.t ......... skipped: These tests send HTTP requests. Set env TEST_LIVE=1 to really run them. # alias, available, clean, clone-modules, compgen, display-bashrc, display-cshrc, display-installation-failure-message, display-pristine-manpath, display-pristine-path, display-system-perl-executable, display-system-perl-shebang, download, env, exec, help, info, init, init-in-bash, install, install-cpanm, install-cpm, install-multiple, install-patchperl, lib, lib-create, lib-delete, lib-list, list, list-modules, make-pp, make-shim, off, self-install, self-upgrade, switch, switch-off, symlink-executables, uninstall, upgrade-perl, use, version t/19.find_similar_commands.t .............. -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. ok 1 - exact result { ok 1 ok 2 @@ -1366,45 +1402,45 @@ } 1..3 ok - # Fake-install a patchperl to /tmp/6LawSvuj9K/patchperl - # Fake-install a patchperl to /tmp/BHF0ZOHu5Z/bin/patchperl - # Fake-install a patchperl to /tmp/6LawSvuj9K/patchperl - # Fake-install a patchperl to /tmp/2Q1NyiPRP0/bin/patchperl + # Fake-install a patchperl to /tmp/CD8vYwPy15/bin/patchperl + # Fake-install a patchperl to /tmp/v5ZWGKeNOs/patchperl + # Fake-install a patchperl to /tmp/v5ZWGKeNOs/patchperl + # Fake-install a patchperl to /tmp/khMPITMHLk/bin/patchperl t/20.patchperl.t .......................... -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. ok 1 - App::Perlbrew::Patchperl maybe_patchperl { - ok 1 - should return undef, when patchperl does not exist { - ok 1 - 1..1 - } - ok 2 - When patchperl exist in PERLBREW_ROOT but it is not an executable file { - ok 1 - should return undef { - # GLOB(0xaaaaba6af230)dummy + ok 1 - When patchperl exist in PERLBREW_ROOT but not in PATH { + ok 1 - should return the path of patchperl under app root { + # GLOB(0xaaab038bc788)#!/usr/bin/env perl\nperl "Fake patchperl version 1.00\n"; ok 1 1..1 } 1..1 } - ok 3 - When patchperl exist in PATH { - ok 1 - When patchperl also exists in PERLBREW_ROOT { + ok 2 - When patchperl exist in PATH { + ok 1 - should return just 'patchperl', when patchperl do not exist in PERLBREW_ROOT { + # GLOB(0xaaab038c78c0)#!/usr/bin/env perl\nperl "Fake patchperl version 1.00\n"; + ok 1 + 1..1 + } + ok 2 - When patchperl also exists in PERLBREW_ROOT { ok 1 - should return the path of patchperl under app root { - # GLOB(0xaaaaba6afbd8)#!/usr/bin/env perl\nperl "Fake patchperl version 1.00\n"; - # GLOB(0xaaaaba6b2948)#!/usr/bin/env perl\nperl "Fake patchperl version 1.00\n"; + # GLOB(0xaaab038c8490)#!/usr/bin/env perl\nperl "Fake patchperl version 1.00\n"; + # GLOB(0xaaab038cc2e8)#!/usr/bin/env perl\nperl "Fake patchperl version 1.00\n"; ok 1 1..1 } 1..1 } - ok 2 - should return just 'patchperl', when patchperl do not exist in PERLBREW_ROOT { - # GLOB(0xaaaaba6afe30)#!/usr/bin/env perl\nperl "Fake patchperl version 1.00\n"; - ok 1 - 1..1 - } 1..2 } - ok 4 - When patchperl exist in PERLBREW_ROOT but not in PATH { - ok 1 - should return the path of patchperl under app root { - # GLOB(0xaaaaba6bfcf0)#!/usr/bin/env perl\nperl "Fake patchperl version 1.00\n"; + ok 3 - should return undef, when patchperl does not exist { + ok 1 + 1..1 + } + ok 4 - When patchperl exist in PERLBREW_ROOT but it is not an executable file { + ok 1 - should return undef { + # GLOB(0xaaab038d4b60)dummy ok 1 1..1 } @@ -1415,45 +1451,28 @@ 1..1 ok t/app-perlbrew-path-installation.t ........ -# Seeded srand with seed '20251010' from local date. -ok 1 - App::Perlbrew::Path::Root { - ok 1 - perls() { - ok 1 - without parameters { - ok 1 - should return Instalations object { - ok 1 - 1..1 - } - 1..1 - } - ok 2 - with multiple paramters { - ok 1 - should return Path object { - ok 1 - 1..1 - } - 1..1 - } - ok 3 - with one parameter { - ok 1 - should return Installation object { - ok 1 - 1..1 - } +# Seeded srand with seed '20261112' from local date. +ok 1 - App::Perlbrew::Path::Installations { + ok 1 - list() { + ok 1 - should list known installations { + ok 1 1..1 } - 1..3 + 1..1 } 1..1 } ok 2 - App::Perlbrew::Path::Installation { ok 1 - name() { - ok 1 - should return installation name { + ok 1 - should provide path to perl { ok 1 1..1 } - ok 2 - should provide path to version file { + ok 2 - should return installation name { ok 1 1..1 } - ok 3 - should provide path to perl { + ok 3 - should provide path to version file { ok 1 1..1 } @@ -1461,49 +1480,83 @@ } 1..1 } -ok 3 - App::Perlbrew::Path::Installations { - ok 1 - list() { - ok 1 - should list known installations { - ok 1 +ok 3 - App::Perlbrew::Path::Root { + ok 1 - perls() { + ok 1 - with multiple paramters { + ok 1 - should return Path object { + ok 1 + 1..1 + } 1..1 } - 1..1 + ok 2 - with one parameter { + ok 1 - should return Installation object { + ok 1 + 1..1 + } + 1..1 + } + ok 3 - without parameters { + ok 1 - should return Instalations object { + ok 1 + 1..1 + } + 1..1 + } + 1..3 } 1..1 } 1..3 ok t/app-perlbrew-path.t ..................... -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. ok 1 - App::Perlbrew::Path { ok 1 - stringify_with_tilde { - ok 1 - should expand leading homedir { + ok 1 - should not expand leading homedir prefix { ok 1 1..1 } - ok 2 - should not expand leading homedir prefix { + ok 2 - should expand leading homedir { ok 1 1..1 } 1..2 } - ok 2 - unlink() { - ok 1 - should not report failure if file doesn't exist { - ok 1 - 1..1 + ok 2 - children() { + ok 1 - should return Path instances { + ok 1 - looks like a perlbrew path object { + ok 1 + ok 2 + ok 3 - App::Perlbrew::Path=HASH->isa('App::Perlbrew::Path') + 1..3 + } + ok 2 - looks like a perlbrew path object { + ok 1 + ok 2 + ok 3 - App::Perlbrew::Path=HASH->isa('App::Perlbrew::Path') + 1..3 + } + ok 3 - looks like a perlbrew path object { + ok 1 + ok 2 + ok 3 - App::Perlbrew::Path=HASH->isa('App::Perlbrew::Path') + 1..3 + } + 1..3 } - ok 2 - should remove file { + ok 2 - should return empty list on empty match { ok 1 1..1 } 1..2 } - ok 3 - mkpath() { - ok 1 - should not die when path already exists { + ok 3 - rmpath() { + ok 1 - should not die when path doesn't exist { ok 1 1..1 } - ok 2 - should create recursive path { + ok 2 - should remove path recursively { ok 1 1..1 } @@ -1519,11 +1572,7 @@ 1..3 } ok 4 - new() { - ok 1 - should die with undefined element { - ok 1 - (?^:^Received an undefined entry as a parameter) - 1..1 - } - ok 2 - should concatenate multiple parameters into single path { + ok 1 - should concatenate multiple parameters into single path { ok 1 - looks like a perlbrew path object { ok 1 ok 2 @@ -1532,6 +1581,10 @@ } 1..1 } + ok 2 - should die with undefined element { + ok 1 - (?^:^Received an undefined entry as a parameter) + 1..1 + } ok 3 - should accept one parameter { ok 1 - looks like a perlbrew path object { ok 1 @@ -1552,35 +1605,29 @@ } 1..4 } - ok 5 - children() { - ok 1 - should return Path instances { - ok 1 - looks like a perlbrew path object { - ok 1 - ok 2 - ok 3 - App::Perlbrew::Path=HASH->isa('App::Perlbrew::Path') - 1..3 - } - ok 2 - looks like a perlbrew path object { - ok 1 - ok 2 - ok 3 - App::Perlbrew::Path=HASH->isa('App::Perlbrew::Path') - 1..3 - } - ok 3 - looks like a perlbrew path object { - ok 1 - ok 2 - ok 3 - App::Perlbrew::Path=HASH->isa('App::Perlbrew::Path') - 1..3 - } - 1..3 + ok 5 - basename() { + ok 1 - should trim provided suffix match { + ok 1 + 1..1 } - ok 2 - should return empty list on empty match { + ok 2 - should return basename { ok 1 1..1 } 1..2 } - ok 6 - child() { + ok 6 - symlink() { + ok 1 - should replace existing file in force mode { + ok 1 + 1..1 + } + ok 2 - should create symlink { + ok 1 + 1..1 + } + 1..2 + } + ok 7 - child() { ok 1 - should accept multiple children { ok 1 - looks like a perlbrew path object { ok 1 @@ -1610,26 +1657,42 @@ } 1..3 } - ok 7 - symlink() { - ok 1 - should create symlink { + ok 8 - mkpath() { + ok 1 - should create recursive path { ok 1 1..1 } - ok 2 - should replace existing file in force mode { + ok 2 - should return self { + ok 1 - looks like a perlbrew path object { + ok 1 + ok 2 + ok 3 - App::Perlbrew::Path=HASH->isa('App::Perlbrew::Path') + 1..3 + } + 1..1 + } + ok 3 - should not die when path already exists { ok 1 1..1 } - 1..2 + 1..3 } - ok 8 - readlink() { - ok 1 - when path doesn't exist { + ok 9 - readlink() { + ok 1 - when path isn't a symlink { ok 1 - should return undef { ok 1 1..1 } 1..1 } - ok 2 - should return path object of link content { + ok 2 - when path doesn't exist { + ok 1 - should return undef { + ok 1 + 1..1 + } + 1..1 + } + ok 3 - should return path object of link content { ok 1 - should return link path { ok 1 - looks like a perlbrew path object { ok 1 @@ -1641,41 +1704,14 @@ } 1..1 } - ok 3 - when path isn't a symlink { - ok 1 - should return undef { - ok 1 - 1..1 - } - 1..1 - } 1..3 } - ok 9 - rmpath() { - ok 1 - should not die when path doesn't exist { - ok 1 - 1..1 - } - ok 2 - should remove path recursively { - ok 1 - 1..1 - } - ok 3 - should return self { - ok 1 - looks like a perlbrew path object { - ok 1 - ok 2 - ok 3 - App::Perlbrew::Path=HASH->isa('App::Perlbrew::Path') - 1..3 - } - 1..1 - } - 1..3 - } - ok 10 - basename() { - ok 1 - should return basename { + ok 10 - unlink() { + ok 1 - should not report failure if file doesn't exist { ok 1 1..1 } - ok 2 - should trim provided suffix match { + ok 2 - should remove file { ok 1 1..1 } @@ -1686,52 +1722,52 @@ 1..1 ok t/bashrc_content.t ........................ -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. ok 1 - App::perlbrew->BASHRC_CONTENT() { - ok 1 - should not export custom PERLBREW_ROOT { - ok 1 - with default settings { + ok 1 - should export custom PERLBREW_ROOT { + ok 1 - when provided via argument (favor over env) { ok 1 1..1 } - ok 2 - when set only via global variable { + ok 2 - when provided via argument { ok 1 1..1 } - 1..2 - } - ok 2 - should export custom PERLBREW_ROOT { - ok 1 - when env variable PERLBREW_ROOT is set { + ok 3 - when env variable PERLBREW_ROOT is set { ok 1 1..1 } - ok 2 - when provided via argument (favor over env) { + 1..3 + } + ok 2 - should not export custom PERLBREW_ROOT { + ok 1 - with default settings { ok 1 1..1 } - ok 3 - when provided via argument { + ok 2 - when set only via global variable { ok 1 1..1 } - 1..3 + 1..2 } 1..2 } 1..1 ok t/bashrc_executes.t ....................... -# Seeded srand with seed '20251010' from local date. -# PERLBREW_ROOT set to /tmp/bSjTD4JZnj -/tmp/bSjTD4JZnj/etc/bashrc +# Seeded srand with seed '20261112' from local date. +# PERLBREW_ROOT set to /tmp/RDVAslof8s +/tmp/RDVAslof8s/etc/bashrc ok 1 - Works without error output on bash where hashing is off { - # perlbrew is installed: /tmp/bSjTD4JZnj/bin/perlbrew + # perlbrew is installed: /tmp/RDVAslof8s/bin/perlbrew # - # perlbrew root (/tmp/bSjTD4JZnj) is initialized. + # perlbrew root (/tmp/RDVAslof8s) is initialized. # # Append the following piece of code to the end of your ~/.bash_profile and start a # new shell, perlbrew should be up and fully functional from there: # - # export PERLBREW_HOME=/tmp/OaY1r6_Jz6 - # source /tmp/bSjTD4JZnj/etc/bashrc + # export PERLBREW_HOME=/tmp/M_hSDDkgue + # source /tmp/RDVAslof8s/etc/bashrc # # Simply run `perlbrew` for usage details. # @@ -1744,15 +1780,15 @@ 1..1 ok t/builddir.t .............................. -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. ok 1 - App::perlbrew\#builddir method { - ok 1 - should return path relative to root { - ok 1 - builddir is /fnord/build + ok 1 - should return path in $App::perlbrew::PERLBREW_ROOT normally { + ok 1 - builddir is /perlbrew/root/build ok 2 - App::Perlbrew::Path=HASH->isa('App::Perlbrew::Path') 1..2 } - ok 2 - should return path in $App::perlbrew::PERLBREW_ROOT normally { - ok 1 - builddir is /perlbrew/root/build + ok 2 - should return path relative to root { + ok 1 - builddir is /fnord/build ok 2 - App::Perlbrew::Path=HASH->isa('App::Perlbrew::Path') 1..2 } @@ -1769,8 +1805,8 @@ 1..2 ok t/command-alias.t ......................... -# Seeded srand with seed '20251010' from local date. -# (mock) installed perl-5.14.1 to /tmp/JZnjOaY1r6/perls/perl-5.14.1 +# Seeded srand with seed '20261112' from local date. +# (mock) installed perl-5.14.1 to /tmp/of8sM_hSDD/perls/perl-5.14.1 ok 1 - alias command, { ok 1 - when invoked with unknown action name, { ok 1 - should display usage message { @@ -1784,16 +1820,16 @@ 1..1 ok t/command-available.t ..................... -# Seeded srand with seed '20251010' from local date. -ok 1 - available command output, when nothing installed locally, { - ok 1 - should display a list of perl versions { +# Seeded srand with seed '20261112' from local date. +ok 1 - available command output, when something installed locally, { + ok 1 - should display a list of perl versions, with markers on installed versions { ok 1 1..1 } 1..1 } -ok 2 - available command output, when something installed locally, { - ok 1 - should display a list of perl versions, with markers on installed versions { +ok 2 - available command output, when nothing installed locally, { + ok 1 - should display a list of perl versions { ok 1 1..1 } @@ -1802,34 +1838,34 @@ 1..2 ok t/command-clone-modules.t ................. -# Seeded srand with seed '20251010' from local date. -# (mock) installed perl-5.14.1 to /tmp/JZnjOaY1r6/perls/perl-5.14.1 -# (mock) installed perl-5.16.0 to /tmp/JZnjOaY1r6/perls/perl-5.16.0 +# Seeded srand with seed '20261112' from local date. +# (mock) installed perl-5.14.1 to /tmp/of8sM_hSDD/perls/perl-5.14.1 +# (mock) installed perl-5.16.0 to /tmp/of8sM_hSDD/perls/perl-5.16.0 ok 1 - clone-modules command, { - ok 1 - when invoked with one argument X { - ok 1 - should display clone modules from current-perl to X { + ok 1 - when invoked with two arguments, A and B, with `--notest` { + ok 1 - should display clone modules from A to B { # - # Installing 1 modules from perl-5.16.0 to perl-5.14.1 ... + # Installing 1 modules from perl-5.14.1 to perl-5.16.0 ... ok 1 ok 2 ok 3 - ok 4 - current_env is called at least 1 time - 1..4 + 1..3 } 1..1 } - ok 2 - when invoked with two arguments, A and B, with `--notest` { - ok 1 - should display clone modules from A to B { + ok 2 - when invoked with one argument X, with `--notest` { + ok 1 - should display clone modules from current-perl to X { # - # Installing 1 modules from perl-5.14.1 to perl-5.16.0 ... + # Installing 1 modules from perl-5.16.0 to perl-5.14.1 ... ok 1 ok 2 ok 3 - 1..3 + ok 4 - current_env is called at least 1 time + 1..4 } 1..1 } - ok 3 - when invoked with one argument X, with `--notest` { + ok 3 - when invoked with one argument X { ok 1 - should display clone modules from current-perl to X { # # Installing 1 modules from perl-5.16.0 to perl-5.14.1 ... @@ -1857,35 +1893,35 @@ 1..1 ok t/command-compgen.t ....................... -# Seeded srand with seed '20251010' from local date. -# (mock) installed perl-5.12.3 to /tmp/JZnjOaY1r6/perls/perl-5.12.3 -# (mock) installed perl-5.12.4 to /tmp/JZnjOaY1r6/perls/perl-5.12.4 -# (mock) installed perl-5.14.1 to /tmp/JZnjOaY1r6/perls/perl-5.14.1 -# (mock) installed perl-5.14.2 to /tmp/JZnjOaY1r6/perls/perl-5.14.2 +# Seeded srand with seed '20261112' from local date. +# (mock) installed perl-5.12.3 to /tmp/of8sM_hSDD/perls/perl-5.12.3 +# (mock) installed perl-5.12.4 to /tmp/of8sM_hSDD/perls/perl-5.12.4 +# (mock) installed perl-5.14.1 to /tmp/of8sM_hSDD/perls/perl-5.14.1 +# (mock) installed perl-5.14.2 to /tmp/of8sM_hSDD/perls/perl-5.14.2 ok 1 - compgen command, { - ok 1 - given 'use' subcommand { - ok 1 - 'use [tab]' suggests a list of installed perls { + ok 1 - when there is a part of a subcommand { + ok 1 - 'versio[tab]' is completed as 'version' { ok 1 1..1 } - ok 2 - 'use 5.12 [tab]' suggests perls with /5\.12/ { + ok 2 - displays a list of l* { ok 1 1..1 } 1..2 } - ok 2 - when there is a part of a subcommand { - ok 1 - displays a list of l* { + ok 2 - given 'switch' subcommand { + ok 1 - 'use [tab]' suggests a list of installed perls { ok 1 1..1 } - ok 2 - 'versio[tab]' is completed as 'version' { + ok 2 - 'use 5.12 [tab]' suggests perls with /5\.12/ { ok 1 1..1 } 1..2 } - ok 3 - given 'switch' subcommand { + ok 3 - given 'use' subcommand { ok 1 - 'use 5.12 [tab]' suggests perls with /5\.12/ { ok 1 1..1 @@ -1908,13 +1944,13 @@ 1..1 ok t/command-display-rc.t .................... -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. ok 1 - App::perlbrew { - ok 1 - should be able to run 'display-bashrc' command { + ok 1 - should be able to run 'display-cshrc' command { ok 1 1..1 } - ok 2 - should be able to run 'display-cshrc' command { + ok 2 - should be able to run 'display-bashrc' command { ok 1 1..1 } @@ -1923,8 +1959,8 @@ 1..1 ok t/command-env.t ........................... -# Seeded srand with seed '20251010' from local date. -# (mock) installed perl-5.14.1 to /tmp/JZnjOaY1r6/perls/perl-5.14.1 +# Seeded srand with seed '20261112' from local date. +# (mock) installed perl-5.14.1 to /tmp/of8sM_hSDD/perls/perl-5.14.1 ok 1 - env command, { ok 1 - when invoked with a perl installation name with lib name, { ok 1 - displays local::lib-related environment variables that should be set to use the given perl. { @@ -1955,19 +1991,19 @@ ok sort (...) interpreted as function at t/command-exec.t line 386. sort (...) interpreted as function at t/command-exec.t line 410. - # Command [perl -E 'somesub 42'] terminated with exit code 7 ($? = 1792) under the following perl environment: - # format_info_output_value - # Command [perl -E 'say 42'] terminated with exit code 3 ($? = 768) under the following perl environment: # Command [perl -E 'say 42'] terminated with exit code 3 ($? = 768) under the following perl environment: # Command [perl -E 'say 42'] terminated with exit code 3 ($? = 768) under the following perl environment: # Command [perl -E 'say 42'] terminated with exit code 7 ($? = 1792) under the following perl environment: + # Command [perl -E 'say 42'] terminated with exit code 3 ($? = 768) under the following perl environment: # Command [perl -E 'say 42'] terminated with exit code 255 ($? = -1) under the following perl environment: + # Command [perl -E 'somesub 42'] terminated with exit code 7 ($? = 1792) under the following perl environment: + # format_info_output_value t/command-exec.t .......................... -# Seeded srand with seed '20251010' from local date. -# (mock) installed perl-5.12.3 to /tmp/JZnjOaY1r6/perls/perl-5.12.3 -# (mock) installed perl-5.12.4 to /tmp/JZnjOaY1r6/perls/perl-5.12.4 -# (mock) installed perl-5.14.1 to /tmp/JZnjOaY1r6/perls/perl-5.14.1 -# (mock) installed perl-5.14.2 to /tmp/JZnjOaY1r6/perls/perl-5.14.2 +# Seeded srand with seed '20261112' from local date. +# (mock) installed perl-5.12.3 to /tmp/of8sM_hSDD/perls/perl-5.12.3 +# (mock) installed perl-5.12.4 to /tmp/of8sM_hSDD/perls/perl-5.12.4 +# (mock) installed perl-5.14.1 to /tmp/of8sM_hSDD/perls/perl-5.14.1 +# (mock) installed perl-5.14.2 to /tmp/of8sM_hSDD/perls/perl-5.14.2 ok 1 - maximum perl version { ok 1 - only executes the needed version { # perl-5.12.4 @@ -1982,19 +2018,17 @@ } 1..1 } -ok 2 - perlbrew exec --with perl-5.12.3 perl -E "say 42" { - ok 1 - invokes perl-5.12.3/bin/perl { +ok 2 - perlbrew exec --with perl-5.14.1,perl-foobarbaz, { + ok 1 - ignore the unrecognized 'perl-foobarbaz' { ok 1 - ok 2 - ok 3 - ok 4 - do_system_with_exit_code is called at least 1 time - 1..4 + ok 2 - do_system_with_exit_code is called at least 1 time + 1..2 } 1..1 } -ok 3 - perlbrew exec --with perl-5.14.1,5.14.1 { - ok 1 - exec 5.14.1 twice, since that is what is specified { - # perl-5.14.1 +ok 3 - minimal perl version { + ok 1 - only executes the needed version { + # perl-5.14.2 # ========== # # perl-5.14.1 @@ -2037,73 +2071,18 @@ } 1..1 } -ok 5 - perlbrew exec --with perl-5.14.1,perl-foobarbaz, { - ok 1 - ignore the unrecognized 'perl-foobarbaz' { - ok 1 - ok 2 - do_system_with_exit_code is called at least 1 time - 1..2 - } - 1..1 -} -ok 6 - perlbrew exec --with perl-5.14.1,perl-5.12.3,perl-5.14.2 perl -E "say 42" { - ok 1 - invokes each perl in the specified order { - # perl-5.14.1 - # ========== - # - # perl-5.12.3 - # ========== - # - # perl-5.14.2 - # ========== - # - ok 1 - ok 2 - do_system_with_exit_code should be called exactly 3 times - 1..2 - } - 1..1 -} -ok 7 - minimal perl version { - ok 1 - only executes the needed version { - # perl-5.14.2 - # ========== - # - # perl-5.14.1 - # ========== - # +ok 5 - perlbrew exec --with perl-5.12.3 perl -E "say 42" { + ok 1 - invokes perl-5.12.3/bin/perl { ok 1 - ok 2 - do_system_with_exit_code should be called exactly 2 times - 1..2 + ok 2 + ok 3 + ok 4 - do_system_with_exit_code is called at least 1 time + 1..4 } 1..1 } -ok 8 - exec exit code { - ok 1 - logging { - ok 1 - should work { - ok 1 - ok 2 - do_exit_with_error_code should be called exactly 1 times - ok 3 - format_info_output should be called exactly 1 times - ok 4 - do_system_with_exit_code should be called exactly 1 times - 1..4 - } - ok 2 - should format info output for right perl { - # Command terminated with non-zero status. - ok 1 - ok 2 - ok 3 - format_info_output should be called exactly 1 times - ok 4 - do_system_with_exit_code should be called exactly 1 times - ok 5 - do_exit_with_error_code should be called exactly 1 times - 1..5 - } - ok 3 - should be quiet if asked { - ok 1 - ok 2 - format_info_output should be called exactly 0 times - ok 3 - do_system_with_exit_code should be called exactly 1 times - ok 4 - do_exit_with_error_code should be called exactly 1 times - 1..4 - } - 1..3 - } - ok 2 - no halt-on-error { +ok 6 - exec exit code { + ok 1 - no halt-on-error { ok 1 - should exit with error code { # Command terminated with non-zero status. ok 1 @@ -2114,7 +2093,18 @@ ok 6 - do_exit_with_error_code should be called exactly 1 times 1..6 } - ok 2 - should exit with error code when several perls ran { + ok 2 - should exit with success code when several perls ran { + # perl-5.14.1 + # ========== + # + # perl-5.14.1 + # ========== + # + ok 1 - do_system_with_exit_code should be called exactly 2 times + ok 2 - do_exit_with_error_code should be called exactly 0 times + 1..2 + } + ok 3 - should exit with error code when several perls ran { # perl-5.14.1 # ========== # Command terminated with non-zero status. @@ -2130,50 +2120,39 @@ ok 6 - do_exit_with_error_code should be called exactly 1 times 1..6 } - ok 3 - should exit with success code when several perls ran { + 1..3 + } + ok 2 - halt-on-error { + ok 1 - should exit with error code when several perls ran { # perl-5.14.1 # ========== # # perl-5.14.1 # ========== - # - ok 1 - do_system_with_exit_code should be called exactly 2 times - ok 2 - do_exit_with_error_code should be called exactly 0 times - 1..2 - } - 1..3 - } - ok 3 - halt-on-error { - ok 1 - should exit with success code { - ok 1 - do_exit_with_error_code should be called exactly 0 times - ok 2 - do_system_with_exit_code should be called exactly 1 times - 1..2 - } - ok 2 - should exit with error code { # Command terminated with non-zero status. ok 1 ok 2 ok 3 ok 4 - format_info_output should be called exactly 1 times - ok 5 - do_system_with_exit_code should be called exactly 1 times + ok 5 - do_system_with_exit_code should be called exactly 2 times ok 6 - do_exit_with_error_code should be called exactly 1 times 1..6 } - ok 3 - should exit with error code when several perls ran { - # perl-5.14.1 - # ========== - # - # perl-5.14.1 - # ========== + ok 2 - should exit with error code { # Command terminated with non-zero status. ok 1 ok 2 ok 3 ok 4 - format_info_output should be called exactly 1 times - ok 5 - do_system_with_exit_code should be called exactly 2 times + ok 5 - do_system_with_exit_code should be called exactly 1 times ok 6 - do_exit_with_error_code should be called exactly 1 times 1..6 } + ok 3 - should exit with success code { + ok 1 - do_exit_with_error_code should be called exactly 0 times + ok 2 - do_system_with_exit_code should be called exactly 1 times + 1..2 + } ok 4 - should exit with code 255 if program terminated with signal or something { # Command terminated with non-zero status. ok 1 @@ -2186,12 +2165,69 @@ } 1..4 } + ok 3 - logging { + ok 1 - should work { + ok 1 + ok 2 - do_exit_with_error_code should be called exactly 1 times + ok 3 - format_info_output should be called exactly 1 times + ok 4 - do_system_with_exit_code should be called exactly 1 times + 1..4 + } + ok 2 - should be quiet if asked { + ok 1 + ok 2 - format_info_output should be called exactly 0 times + ok 3 - do_system_with_exit_code should be called exactly 1 times + ok 4 - do_exit_with_error_code should be called exactly 1 times + 1..4 + } + ok 3 - should format info output for right perl { + # Command terminated with non-zero status. + ok 1 + ok 2 + ok 3 - format_info_output should be called exactly 1 times + ok 4 - do_system_with_exit_code should be called exactly 1 times + ok 5 - do_exit_with_error_code should be called exactly 1 times + 1..5 + } + 1..3 + } 1..3 } +ok 7 - perlbrew exec --with perl-5.14.1,perl-5.12.3,perl-5.14.2 perl -E "say 42" { + ok 1 - invokes each perl in the specified order { + # perl-5.14.1 + # ========== + # + # perl-5.12.3 + # ========== + # + # perl-5.14.2 + # ========== + # + ok 1 + ok 2 - do_system_with_exit_code should be called exactly 3 times + 1..2 + } + 1..1 +} +ok 8 - perlbrew exec --with perl-5.14.1,5.14.1 { + ok 1 - exec 5.14.1 twice, since that is what is specified { + # perl-5.14.1 + # ========== + # + # perl-5.14.1 + # ========== + # + ok 1 + ok 2 - do_system_with_exit_code should be called exactly 2 times + 1..2 + } + 1..1 +} 1..8 ok t/command-help.t .......................... -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. ok 1 - `perlbrew` should print some nice message and instruct user to read help for individual commands { ok 1 1..1 @@ -2219,21 +2255,21 @@ 1..5 ok t/command-info.t .......................... -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. ok 1 - info command { - ok 1 - should display info if under system perl { + ok 1 - should display info if under perlbrew perl { ok 1 1..1 } - ok 2 - should display info for a module if the module is installed { + ok 2 - should display a message that the module can't be found if the module isn't installed { ok 1 1..1 } - ok 3 - should display info if under perlbrew perl { + ok 3 - should display info for a module if the module is installed { ok 1 1..1 } - ok 4 - should display a message that the module can't be found if the module isn't installed { + ok 4 - should display info if under system perl { ok 1 1..1 } @@ -2242,11 +2278,11 @@ 1..1 ok t/command-install-cpanm.t ................. -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. ok 1 - App::perlbrew->install_cpanm { ok 1 - should produce 'cpanm' in the bin dir { ok 1 - GET cpanm url: https://raw.githubusercontent.com/miyagawa/cpanminus/master/cpanm - ok 2 - cpanm is produced. /tmp/JZnjOaY1r6/bin/cpanm + ok 2 - cpanm is produced. /tmp/of8sM_hSDD/bin/cpanm ok 3 - cpanm should be an executable. 1..3 } @@ -2255,11 +2291,11 @@ 1..1 ok t/command-install-cpm.t ................... -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. ok 1 - App::perlbrew->install_cpm { ok 1 - should produce 'cpm' in the bin dir { ok 1 - GET cpm url: https://raw.githubusercontent.com/skaji/cpm/main/cpm - ok 2 - cpm is produced. /tmp/JZnjOaY1r6/bin/cpm + ok 2 - cpm is produced. /tmp/of8sM_hSDD/bin/cpm ok 3 - cpm should be an executable. 1..3 } @@ -2268,48 +2304,48 @@ 1..1 ok t/command-install-from-archive.t .......... -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. ok 1 - command install { - ok 1 - with cperl source archive { - ok 1 - should dispatch via do_install_archive() { - ok 1 - method do_install_archive is called with expected arguments - ok 2 - do_install_archive is called at least 1 time - 1..2 - } - ok 2 - should dispatch via do_extract_tarball() { + ok 1 - with perfixed perl source archive { + ok 1 - should dispatch via do_extract_tarball() { ok 1 - method do_extract_tarball is called with expected arguments ok 2 - do_extract_tarball is called at least 1 time 1..2 } - ok 3 - should dispatch via do_install_this() { + ok 2 - should dispatch via do_install_this() { ok 1 - method do_install_this is called with expected arguments ok 2 - do_install_this is called at least 1 time 1..2 } + ok 3 - should dispatch via do_install_archive() { + ok 1 - method do_install_archive is called with expected arguments + ok 2 - do_install_archive is called at least 1 time + 1..2 + } 1..3 } - ok 2 - with perfixed perl source archive { + ok 2 - with prefixed cperl source archive { ok 1 - should dispatch via do_install_archive() { ok 1 - method do_install_archive is called with expected arguments ok 2 - do_install_archive is called at least 1 time 1..2 } - ok 2 - should dispatch via do_extract_tarball() { - ok 1 - method do_extract_tarball is called with expected arguments - ok 2 - do_extract_tarball is called at least 1 time - 1..2 - } - ok 3 - should dispatch via do_install_this() { + ok 2 - should dispatch via do_install_this() { ok 1 - method do_install_this is called with expected arguments ok 2 - do_install_this is called at least 1 time 1..2 } + ok 3 - should dispatch via do_extract_tarball() { + ok 1 - method do_extract_tarball is called with expected arguments + ok 2 - do_extract_tarball is called at least 1 time + 1..2 + } 1..3 } - ok 3 - with prefixed cperl source archive { - ok 1 - should dispatch via do_install_archive() { - ok 1 - method do_install_archive is called with expected arguments - ok 2 - do_install_archive is called at least 1 time + ok 3 - with cperl source archive { + ok 1 - should dispatch via do_install_this() { + ok 1 - method do_install_this is called with expected arguments + ok 2 - do_install_this is called at least 1 time 1..2 } ok 2 - should dispatch via do_extract_tarball() { @@ -2317,17 +2353,17 @@ ok 2 - do_extract_tarball is called at least 1 time 1..2 } - ok 3 - should dispatch via do_install_this() { - ok 1 - method do_install_this is called with expected arguments - ok 2 - do_install_this is called at least 1 time + ok 3 - should dispatch via do_install_archive() { + ok 1 - method do_install_archive is called with expected arguments + ok 2 - do_install_archive is called at least 1 time 1..2 } 1..3 } ok 4 - with perl source archive { - ok 1 - should dispatch via do_extract_tarball() { - ok 1 - method do_extract_tarball is called with expected arguments - ok 2 - do_extract_tarball is called at least 1 time + ok 1 - should dispatch via do_install_this() { + ok 1 - method do_install_this is called with expected arguments + ok 2 - do_install_this is called at least 1 time 1..2 } ok 2 - should dispatch via do_install_archive() { @@ -2335,9 +2371,9 @@ ok 2 - do_install_archive is called at least 1 time 1..2 } - ok 3 - should dispatch via do_install_this() { - ok 1 - method do_install_this is called with expected arguments - ok 2 - do_install_this is called at least 1 time + ok 3 - should dispatch via do_extract_tarball() { + ok 1 - method do_extract_tarball is called with expected arguments + ok 2 - do_extract_tarball is called at least 1 time 1..2 } 1..3 @@ -2347,11 +2383,11 @@ 1..1 ok t/command-install-patchperl.t ............. -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. ok 1 - App::perlbrew->install_patchperl { ok 1 - should produce 'patchperl' in the bin dir { ok 1 - GET patchperl url: https://raw.githubusercontent.com/gugod/patchperl-packing/master/patchperl - ok 2 - patchperl is produced. /tmp/JZnjOaY1r6/bin/patchperl + ok 2 - patchperl is produced. /tmp/of8sM_hSDD/bin/patchperl ok 3 - patchperl should be an executable. 1..3 } @@ -2360,29 +2396,30 @@ 1..1 ok t/command-install.t ....................... -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. ok 1 - command install { - ok 1 - should install stable version of perl { - # (mock) installed perl-5.14.2 to /tmp/JZnjOaY1r6/perls/perl-5.14.2 + ok 1 - should install exact cperl version { + # (mock) installed cperl-5.26.4 to /tmp/of8sM_hSDD/perls/cperl-5.26.4 + ok 1 - method do_install_release is called with expected arguments + ok 2 - do_install_release is called at least 1 time + 1..2 + } + ok 2 - should install exact perl version { + # (mock) installed perl-5.12.1 to /tmp/of8sM_hSDD/perls/perl-5.12.1 + ok 1 - method do_install_release is called with expected arguments + ok 2 - do_install_release is called at least 1 time + 1..2 + } + ok 3 - should install stable version of perl { + # (mock) installed perl-5.14.2 to /tmp/of8sM_hSDD/perls/perl-5.14.2 ok 1 - available_perls is called at least 1 time ok 2 - method do_install_release is called with expected arguments ok 3 - do_install_release is called at least 1 time 1..3 } - ok 2 - should install blead perl { - ok 1 - do_install_release should be called exactly 0 times - ok 2 - do_install_blead should be called exactly 1 times - 1..2 - } - ok 3 - should install git checkout { - ok 1 - method do_install_git is called with expected arguments - ok 2 - do_install_git is called at least 1 time - 1..2 - } - ok 4 - should install exact perl version { - # (mock) installed perl-5.12.1 to /tmp/JZnjOaY1r6/perls/perl-5.12.1 - ok 1 - method do_install_release is called with expected arguments - ok 2 - do_install_release is called at least 1 time + ok 4 - should install from archive { + ok 1 - method do_install_archive is called with expected arguments + ok 2 - do_install_archive is called at least 1 time 1..2 } ok 5 - should install from uri { @@ -2390,15 +2427,14 @@ ok 2 - do_install_url is called at least 1 time 1..2 } - ok 6 - should install exact cperl version { - # (mock) installed cperl-5.26.4 to /tmp/JZnjOaY1r6/perls/cperl-5.26.4 - ok 1 - method do_install_release is called with expected arguments - ok 2 - do_install_release is called at least 1 time + ok 6 - should install git checkout { + ok 1 - method do_install_git is called with expected arguments + ok 2 - do_install_git is called at least 1 time 1..2 } - ok 7 - should install from archive { - ok 1 - method do_install_archive is called with expected arguments - ok 2 - do_install_archive is called at least 1 time + ok 7 - should install blead perl { + ok 1 - do_install_release should be called exactly 0 times + ok 2 - do_install_blead should be called exactly 1 times 1..2 } 1..7 @@ -2406,31 +2442,21 @@ 1..1 ok t/command-lib.t ........................... -# Seeded srand with seed '20251010' from local date. -# (mock) installed perl-5.14.1 to /tmp/JZnjOaY1r6/perls/perl-5.14.1 -# (mock) installed perl-5.14.2 to /tmp/JZnjOaY1r6/perls/perl-5.14.2 -# (mock) installed perl-5.14.3 to /tmp/JZnjOaY1r6/perls/perl-5.14.3 +# Seeded srand with seed '20261112' from local date. +# (mock) installed perl-5.14.1 to /tmp/of8sM_hSDD/perls/perl-5.14.1 +# (mock) installed perl-5.14.2 to /tmp/of8sM_hSDD/perls/perl-5.14.2 +# (mock) installed perl-5.14.3 to /tmp/of8sM_hSDD/perls/perl-5.14.3 ok 1 - lib command, { - ok 1 - when invoked with unknown action name, { - ok 1 - should display error { - ok 1 - Unknown command - 1..1 - } - 1..1 - } - ok 2 - without lib name { - ok 1 - delete errs gracefully showing usage { - ok 1 - lib delete - 1..1 - } - ok 2 - create errs gracefully showing usage { - ok 1 - lib create + ok 1 - `create` sub-command, { + ok 1 - with a bare lib name, { + ok 1 - creates the lib folder for current perl { + ok 1 - stdout matches + ok 2 - libdir exists + 1..2 + } 1..1 } - 1..2 - } - ok 3 - `create` sub-command, { - ok 1 - with @ in the beginning of lib name, { + ok 2 - with @ in the beginning of lib name, { ok 1 - creates the lib folder for current perl { ok 1 - libdir do not exist ok 2 - stdout matches @@ -2439,27 +2465,19 @@ } 1..1 } - ok 2 - with a bare lib name, { - ok 1 - creates the lib folder for current perl { - ok 1 - stdout matches - ok 2 - libdir exists - 1..2 - } - 1..1 - } ok 3 - with perl name and @ as part of lib name, { ok 1 - creates the lib folder for the specified perl { ok 1 - stdout matches ok 2 1..2 } - ok 2 - creates the lib folder for the specified perl { - ok 1 - stdout matches + ok 2 - shows errors if the specified perl does not exist. { + ok 1 - dies with error message ok 2 1..2 } - ok 3 - shows errors if the specified perl does not exist. { - ok 1 - dies with error message + ok 3 - creates the lib folder for the specified perl { + ok 1 - stdout matches ok 2 1..2 } @@ -2467,17 +2485,35 @@ } 1..3 } + ok 2 - without lib name { + ok 1 - create errs gracefully showing usage { + ok 1 - lib create + 1..1 + } + ok 2 - delete errs gracefully showing usage { + ok 1 - lib delete + 1..1 + } + 1..2 + } + ok 3 - when invoked with unknown action name, { + ok 1 - should display error { + ok 1 - Unknown command + 1..1 + } + 1..1 + } ok 4 - `delete` sub-command, { - ok 1 - deletes the local::lib folder { + ok 1 - shows errors when the given lib does not exists { + ok 1 - dies with error message + 1..1 + } + ok 2 - deletes the local::lib folder { ok 1 - stdout matches ok 2 ok 3 1..3 } - ok 2 - shows errors when the given lib does not exists { - ok 1 - dies with error message - 1..1 - } 1..2 } 1..4 @@ -2486,11 +2522,11 @@ ok # Workflow build 'when `--no-decoration` is given' is empty at t/command-list.t around lines 90 -> 98. t/command-list.t .......................... -# Seeded srand with seed '20251010' from local date. -# (mock) installed perl-5.12.3 to /tmp/JZnjOaY1r6/perls/perl-5.12.3 -# (mock) installed perl-5.12.4 to /tmp/JZnjOaY1r6/perls/perl-5.12.4 -# (mock) installed perl-5.14.1 to /tmp/JZnjOaY1r6/perls/perl-5.14.1 -# (mock) installed perl-5.14.2 to /tmp/JZnjOaY1r6/perls/perl-5.14.2 +# Seeded srand with seed '20261112' from local date. +# (mock) installed perl-5.12.3 to /tmp/of8sM_hSDD/perls/perl-5.12.3 +# (mock) installed perl-5.12.4 to /tmp/of8sM_hSDD/perls/perl-5.12.4 +# (mock) installed perl-5.14.1 to /tmp/of8sM_hSDD/perls/perl-5.14.1 +# (mock) installed perl-5.14.2 to /tmp/of8sM_hSDD/perls/perl-5.14.2 ok 1 - list command, { ok 1 - when there no libs under PERLBREW_HOME, { ok 1 - displays a list of perl installation names { @@ -2533,16 +2569,16 @@ # #!/bin/bash # export PERL5LIB="/build/reproducible-path/perlbrew-1.02/blib/arch:/build/reproducible-path/perlbrew-1.02/blib/lib" # unset PERLBREW_LIB - # export PERLBREW_MANPATH="/tmp/JZnjOaY1r6/perls/perl-5.36.1/man" - # export PERLBREW_PATH="/tmp/JZnjOaY1r6/bin:/tmp/JZnjOaY1r6/perls/perl-5.36.1/bin" + # export PERLBREW_MANPATH="/tmp/of8sM_hSDD/perls/perl-5.36.1/man" + # export PERLBREW_PATH="/tmp/of8sM_hSDD/bin:/tmp/of8sM_hSDD/perls/perl-5.36.1/bin" # export PERLBREW_PERL="perl-5.36.1" - # export PERLBREW_ROOT="/tmp/JZnjOaY1r6" + # export PERLBREW_ROOT="/tmp/of8sM_hSDD" # export PERLBREW_VERSION="1.02" # unset PERL_LOCAL_LIB_ROOT # - # export PATH="/tmp/JZnjOaY1r6/bin:/tmp/JZnjOaY1r6/perls/perl-5.36.1/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/games" + # export PATH="/tmp/of8sM_hSDD/bin:/tmp/of8sM_hSDD/perls/perl-5.36.1/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/i/capture/the/path" # - # exec bar "$@" + # exec foo "$@" # # # ---- @@ -2552,22 +2588,22 @@ # #!/bin/bash # export PERL5LIB="/build/reproducible-path/perlbrew-1.02/blib/arch:/build/reproducible-path/perlbrew-1.02/blib/lib" # unset PERLBREW_LIB - # export PERLBREW_MANPATH="/tmp/JZnjOaY1r6/perls/perl-5.36.1/man" - # export PERLBREW_PATH="/tmp/JZnjOaY1r6/bin:/tmp/JZnjOaY1r6/perls/perl-5.36.1/bin" + # export PERLBREW_MANPATH="/tmp/of8sM_hSDD/perls/perl-5.36.1/man" + # export PERLBREW_PATH="/tmp/of8sM_hSDD/bin:/tmp/of8sM_hSDD/perls/perl-5.36.1/bin" # export PERLBREW_PERL="perl-5.36.1" - # export PERLBREW_ROOT="/tmp/JZnjOaY1r6" + # export PERLBREW_ROOT="/tmp/of8sM_hSDD" # export PERLBREW_VERSION="1.02" # unset PERL_LOCAL_LIB_ROOT # - # export PATH="/tmp/JZnjOaY1r6/bin:/tmp/JZnjOaY1r6/perls/perl-5.36.1/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/games" + # export PATH="/tmp/of8sM_hSDD/bin:/tmp/of8sM_hSDD/perls/perl-5.36.1/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/i/capture/the/path" # - # exec foo "$@" + # exec bar "$@" # # # ---- t/command-make-shim.t ..................... -# Seeded srand with seed '20251010' from local date. -# (mock) installed perl-5.36.1 to /tmp/JZnjOaY1r6/perls/perl-5.36.1 +# Seeded srand with seed '20261112' from local date. +# (mock) installed perl-5.36.1 to /tmp/of8sM_hSDD/perls/perl-5.36.1 ok 1 - App::perlbrew->make_shim() { ok 1 - should show usage { ok 1 - `make-shim` should not trigger any exceptions @@ -2581,46 +2617,39 @@ ok 1 - foo is produced under current directory. 1..1 } - ok 2 - should produce 'foo' in the current dir { - ok 1 - foo is produced under current directory. - 1..1 + ok 2 - should err when perlbrew is off { + ok 1 - (?^:^ERROR:) + ok 2 - foo is not produced + 1..2 } ok 3 - should err when 'foo' already exists { ok 1 - (?^:^ERROR:) ok 2 - (?^:^ERROR:) 1..2 } - ok 4 - should err when perlbrew is off { - ok 1 - (?^:^ERROR:) - ok 2 - foo is not produced - 1..2 + ok 4 - should produce 'foo' in the current dir { + ok 1 - foo is produced under current directory. + 1..1 } 1..4 } 1..2 ok t/current_perl.t .......................... -# Seeded srand with seed '20251010' from local date. -# (mock) installed perl-5.12.3 to /tmp/JZnjOaY1r6/perls/perl-5.12.3 -# (mock) installed perl-5.12.4 to /tmp/JZnjOaY1r6/perls/perl-5.12.4 -# (mock) installed perl-5.14.1 to /tmp/JZnjOaY1r6/perls/perl-5.14.1 -# (mock) installed perl-5.14.2 to /tmp/JZnjOaY1r6/perls/perl-5.14.2 +# Seeded srand with seed '20261112' from local date. +# (mock) installed perl-5.12.3 to /tmp/of8sM_hSDD/perls/perl-5.12.3 +# (mock) installed perl-5.12.4 to /tmp/of8sM_hSDD/perls/perl-5.12.4 +# (mock) installed perl-5.14.1 to /tmp/of8sM_hSDD/perls/perl-5.14.1 +# (mock) installed perl-5.14.2 to /tmp/of8sM_hSDD/perls/perl-5.14.2 ok 1 - current perl { - ok 1 - can be decided from object attribute, which overrides env var. { + ok 1 - is decided from env var PERLBREW_PERL { ok 1 ok 2 ok 3 ok 4 1..4 } - ok 2 - is decided from env var PERLBREW_PERL { - ok 1 - ok 2 - ok 3 - ok 4 - 1..4 - } - ok 3 - can be set with current_perl method. { + ok 2 - can be set with current_perl method. { ok 1 ok 2 ok 3 @@ -2631,12 +2660,19 @@ ok 8 1..8 } + ok 3 - can be decided from object attribute, which overrides env var. { + ok 1 + ok 2 + ok 3 + ok 4 + 1..4 + } 1..3 } 1..1 ok t/current_shell.t ......................... -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. 1..6 ok 1 - current_shell gives the expected shell based on $SHELL environment variable ok 2 - current_shell setups and returns anything passed as parameter @@ -2650,23 +2686,23 @@ ok 6 - current_shell_is_bashish() returns false ok t/do_system.t ............................. -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. 1..2 ok 1 - passed all arguments to system() ok 2 - passed single string to system() ok t/error-http_download-exec-error.t ........ -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. ok 1 - The exit status code of curl is -1 1..1 ok t/error-http_download-exit-nonzero.t ...... -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. ok 1 - The exit status code of curl is 42 1..1 ok t/error-http_download-param-validation.t .. -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. ok 1 - http_download: dies when when the download target already exists { ok 1 - dies with the expected error message 1..1 @@ -2674,12 +2710,12 @@ 1..1 ok t/error-install-before-init.t ............. -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. ok 1 - installing a perl before initializing perlbrew fails 1..1 ok t/failure-command-install-cpanm.t ......... -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. ok 1 - App::perlbrew->install_cpanm { ok 1 - should no produced 'cpanm' in the bin dir, if the downloaded content seems to be invalid. { ok 1 - GET cpanm url: https://raw.githubusercontent.com/miyagawa/cpanminus/master/cpanm @@ -2690,10 +2726,10 @@ # # ...and try again latter. # - # The previously downloaded file is saved at /tmp/cpanm.downloaded.2099160 for manual inspection. + # The previously downloaded file is saved at /tmp/cpanm.downloaded.3252658 for manual inspection. # # - ok 3 - cpanm is not produced. /tmp/JZnjOaY1r6/bin/cpanm + ok 3 - cpanm is not produced. /tmp/of8sM_hSDD/bin/cpanm 1..3 } 1..1 @@ -2701,7 +2737,7 @@ 1..1 ok t/failure-command-install-cpm.t ........... -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. ok 1 - App::perlbrew->install_cpm { ok 1 - should no produced 'cpm' in the bin dir, if the downloaded content seems to be invalid. { ok 1 - GET cpm url: https://raw.githubusercontent.com/skaji/cpm/main/cpm @@ -2712,10 +2748,10 @@ # # ...and try again latter. # - # The previously downloaded file is saved at /tmp/cpm.downloaded.2099236 for manual inspection. + # The previously downloaded file is saved at /tmp/cpm.downloaded.3252677 for manual inspection. # # - ok 3 - cpm is not produced. /tmp/JZnjOaY1r6/bin/cpm + ok 3 - cpm is not produced. /tmp/of8sM_hSDD/bin/cpm 1..3 } 1..1 @@ -2723,7 +2759,7 @@ 1..1 ok t/failure-command-install-patchperl.t ..... -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. ok 1 - App::perlbrew->install_patchperl { ok 1 - should not produce 'patchperl' in the bin dir, if the downloaded content does not seem to be valid. { ok 1 - GET patchperl url: https://raw.githubusercontent.com/gugod/patchperl-packing/master/patchperl @@ -2734,10 +2770,10 @@ # # ...and try again latter. # - # The previously downloaded file is saved at /tmp/patchperl.downloaded.2099336 for manual inspection. + # The previously downloaded file is saved at /tmp/patchperl.downloaded.3252687 for manual inspection. # # - ok 3 - patchperl is *not* installed: /tmp/JZnjOaY1r6/bin/patchperl + ok 3 - patchperl is *not* installed: /tmp/of8sM_hSDD/bin/patchperl 1..3 } 1..1 @@ -2745,7 +2781,7 @@ 1..1 ok t/home.t .................................. -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. ok 1 - App::perlbrew\#home method { ok 1 - it should return $App::perlbrew::PERLBREW_HOME if provided { ok 1 - App::Perlbrew::Path=HASH->isa('App::Perlbrew::Path') @@ -2776,7 +2812,7 @@ 1..1 ok t/http-program-control.t .................. -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. ok 1 - UA should be curl, verbosity should be 0 { ok 1 - UA Program can be set to: curl ok 2 - verbosity matches: [curl --silent --location --fail -o - https\:\/\/perlbrew\.pl] @@ -2811,32 +2847,32 @@ } 1..7 ok -# PATH=/build/reproducible-path/perlbrew-1.02/t/fake-bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/games +# PATH=/build/reproducible-path/perlbrew-1.02/t/fake-bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/i/capture/the/path # curl = /build/reproducible-path/perlbrew-1.02/t/fake-bin/curl t/http-ua-detect-non-curl.t ............... -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. ok 1 ok 2 - UA: wget 1..2 ok t/http-ua-detect.t ........................ -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. ok 1 - UA: curl 1..1 ok t/http.t .................................. skipped: (no reason given) t/installation-perlbrew.t ................. -# Seeded srand with seed '20251010' from local date. -# PERLBREW_ROOT set to /tmp/bSjTD4JZnj +# Seeded srand with seed '20261112' from local date. +# PERLBREW_ROOT set to /tmp/RDVAslof8s ok 1 - `perlbrew self-install` initialize the required dir structure under PERLBREW_ROOT { # - # perlbrew root (/tmp/bSjTD4JZnj) is initialized. + # perlbrew root (/tmp/RDVAslof8s) is initialized. # # Append the following piece of code to the end of your ~/.bash_profile and start a # new shell, perlbrew should be up and fully functional from there: # - # export PERLBREW_HOME=/tmp/OaY1r6_Jz6 - # source /tmp/bSjTD4JZnj/etc/bashrc + # export PERLBREW_HOME=/tmp/M_hSDDkgue + # source /tmp/RDVAslof8s/etc/bashrc # # Simply run `perlbrew` for usage details. # @@ -2878,10 +2914,10 @@ 1..5 ok t/installation.t .......................... -# Seeded srand with seed '20251010' from local date. -# PERLBREW_ROOT set to /tmp/bSjTD4JZnj +# Seeded srand with seed '20261112' from local date. +# PERLBREW_ROOT set to /tmp/RDVAslof8s ok 1 -# (mock) installed perl-5.14.0 to /tmp/bSjTD4JZnj/perls/perl-5.14.0 +# (mock) installed perl-5.14.0 to /tmp/RDVAslof8s/perls/perl-5.14.0 ok 2 ok 3 ok 4 - should die when doing install with existing distribution name. @@ -2892,7 +2928,7 @@ 1..3 } ok 6 - do not clobber exitsing user-specified name. { - # (mock) installed the-dude to /tmp/bSjTD4JZnj/perls/the-dude + # (mock) installed the-dude to /tmp/RDVAslof8s/perls/the-dude ok 1 ok 2 ok 3 - should die when doing install with existing user-specified name. @@ -2901,12 +2937,12 @@ 1..6 ok t/installation2.t ......................... -# Seeded srand with seed '20251010' from local date. -# PERLBREW_ROOT set to /tmp/JZnjOaY1r6 +# Seeded srand with seed '20261112' from local date. +# PERLBREW_ROOT set to /tmp/of8sM_hSDD ok 1 - App::perlbrew { ok 1 - ->do_install_url method { ok 1 - it should accept an URL to perl tarball, and download the tarball. { - # Fetching perl-5.14.0 as /tmp/JZnjOaY1r6/dists/perl-5.14.0.tar.gz + # Fetching perl-5.14.0 as /tmp/of8sM_hSDD/dists/perl-5.14.0.tar.gz ok 1 - http_download is called ok 2 - do_extract_tarball is called ok 3 - do_install_this is called @@ -2924,11 +2960,11 @@ } ok 3 - ->do_install_this method { ok 1 - it should log successful brews to the log_file. { - # Installing into /tmp/JZnjOaY1r6/perls/perl-5.12.3 + # Installing into /tmp/of8sM_hSDD/perls/perl-5.12.3 # # This could take a while. You can run the following command on another shell to track the status: # - # tail -f /tmp/JZnjOaY1r6/build.perl-5.12.3.log + # tail -f /tmp/of8sM_hSDD/build.perl-5.12.3.log # # perl-5.12.3 is successfully installed. ok 1 - Success message shows in log @@ -2936,11 +2972,11 @@ 1..2 } ok 2 - it should log brew failure to the log_file if system call fails. { - # Installing into /tmp/JZnjOaY1r6/perls/perl-5.12.3 + # Installing into /tmp/of8sM_hSDD/perls/perl-5.12.3 # # This could take a while. You can run the following command on another shell to track the status: # - # tail -f /tmp/JZnjOaY1r6/build.perl-5.12.3.log + # tail -f /tmp/of8sM_hSDD/build.perl-5.12.3.log # ok 1 ok 2 - Failure message shows in log @@ -2954,16 +2990,16 @@ 1..1 ok t/installation3.t ......................... -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. 1..3 -# (mock) installed perl-5.16.2 to /tmp/bSjTD4JZnj/perls/perl-5.16.2 +# (mock) installed perl-5.16.2 to /tmp/RDVAslof8s/perls/perl-5.16.2 ok 1 - install perl-stable installs one perl ok 2 - install perl-stable installs correct perl ok 3 - install --switch automatically switches to the installed perl ok t/list_modules.t .......................... -# Seeded srand with seed '20251010' from local date. -# (mock) installed perl-5.14.1 to /tmp/JZnjOaY1r6/perls/perl-5.14.1 +# Seeded srand with seed '20261112' from local date. +# (mock) installed perl-5.14.1 to /tmp/of8sM_hSDD/perls/perl-5.14.1 ok 1 - list_modules method, { ok 1 - when run successfully { ok 1 - should return an arryref of module names { @@ -2978,7 +3014,7 @@ 1..1 ok t/sys.t ................................... -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. ok 1 - sys { ok 1 ok 2 @@ -2990,7 +3026,7 @@ 1..1 ok t/unit-files-are-the-same.t ............... -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. # Comparing /build/reproducible-path/perlbrew-1.02/t/00.load.t with /build/reproducible-path/perlbrew-1.02/t/08.error_install.t ok 1 ok 2 @@ -3024,7 +3060,7 @@ 1..20 ok t/util-find-similar-tokens.t .............. -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. 1..3 ok 1 - exact result { ok 1 @@ -3044,7 +3080,7 @@ } ok t/util-looks-like.t ....................... -# Seeded srand with seed '20251010' from local date. +# Seeded srand with seed '20261112' from local date. ok 1 - looks_like_url_of_skaji_relocatable_perl { ok 1 - positive case: https://github.com/skaji/relocatable-perl/releases/download/5.40.0.0/perl-darwin-amd64.tar.gz ok 2 - positive case: https://github.com/skaji/relocatable-perl/releases/download/5.40.0.0/perl-linux-amd64.tar.gz @@ -3064,7 +3100,7 @@ 1..2 ok All tests successful. -Files=73, Tests=242, 14 wallclock secs ( 0.21 usr 0.13 sys + 10.53 cusr 2.42 csys = 13.29 CPU) +Files=73, Tests=242, 26 wallclock secs ( 0.22 usr 0.17 sys + 10.98 cusr 2.40 csys = 13.77 CPU) Result: PASS create-stamp debian/debhelper-build-stamp dh_prep @@ -3074,14 +3110,14 @@ /usr/bin/perl Build install --destdir /build/reproducible-path/perlbrew-1.02/debian/perlbrew --create_packlist 0 Installing /build/reproducible-path/perlbrew-1.02/debian/perlbrew/usr/share/man/man1/perlbrew.1p Installing /build/reproducible-path/perlbrew-1.02/debian/perlbrew/usr/share/perl5/App/perlbrew.pm +Installing /build/reproducible-path/perlbrew-1.02/debian/perlbrew/usr/share/perl5/App/Perlbrew/Sys.pm +Installing /build/reproducible-path/perlbrew-1.02/debian/perlbrew/usr/share/perl5/App/Perlbrew/Patchperl.pm Installing /build/reproducible-path/perlbrew-1.02/debian/perlbrew/usr/share/perl5/App/Perlbrew/Path.pm Installing /build/reproducible-path/perlbrew-1.02/debian/perlbrew/usr/share/perl5/App/Perlbrew/Util.pm -Installing /build/reproducible-path/perlbrew-1.02/debian/perlbrew/usr/share/perl5/App/Perlbrew/Patchperl.pm Installing /build/reproducible-path/perlbrew-1.02/debian/perlbrew/usr/share/perl5/App/Perlbrew/HTTP.pm -Installing /build/reproducible-path/perlbrew-1.02/debian/perlbrew/usr/share/perl5/App/Perlbrew/Sys.pm -Installing /build/reproducible-path/perlbrew-1.02/debian/perlbrew/usr/share/perl5/App/Perlbrew/Path/Installations.pm -Installing /build/reproducible-path/perlbrew-1.02/debian/perlbrew/usr/share/perl5/App/Perlbrew/Path/Installation.pm Installing /build/reproducible-path/perlbrew-1.02/debian/perlbrew/usr/share/perl5/App/Perlbrew/Path/Root.pm +Installing /build/reproducible-path/perlbrew-1.02/debian/perlbrew/usr/share/perl5/App/Perlbrew/Path/Installation.pm +Installing /build/reproducible-path/perlbrew-1.02/debian/perlbrew/usr/share/perl5/App/Perlbrew/Path/Installations.pm Installing /build/reproducible-path/perlbrew-1.02/debian/perlbrew/usr/share/man/man3/App::perlbrew.3pm Installing /build/reproducible-path/perlbrew-1.02/debian/perlbrew/usr/bin/perlbrew # remove empty manpages @@ -3108,12 +3144,14 @@ dpkg-buildpackage: info: binary-only upload (no source included) dpkg-genchanges: info: including full source code in upload I: copying local configuration +I: user script /srv/workspace/pbuilder/3245712/tmp/hooks/B01_cleanup starting +I: user script /srv/workspace/pbuilder/3245712/tmp/hooks/B01_cleanup finished I: unmounting dev/ptmx filesystem I: unmounting dev/pts filesystem I: unmounting dev/shm filesystem I: unmounting proc filesystem I: unmounting sys filesystem I: cleaning the build env -I: removing directory /srv/workspace/pbuilder/2089394 and its subdirectories -I: Current time: Fri Oct 10 01:17:05 -12 2025 -I: pbuilder-time-stamp: 1760102225 +I: removing directory /srv/workspace/pbuilder/3245712 and its subdirectories +I: Current time: Fri Nov 13 09:41:09 +14 2026 +I: pbuilder-time-stamp: 1794512469