afresh1

tmup () { 
    echo -n "Updating to latest tmux environment...";

    local IFS=",";
    for line in $(tmux showenv -t $(tmux display -p "#S") | tr "\n" ",");
    do
        if [[ $line == -* ]]; then
            unset $(echo $line | cut -c2-);
        else
            export $line;

afresh1

#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';
use feature 'signatures';
no warnings 'experimental::signatures';

use Sys::Hostname;
use HTTP::Tiny;

afresh1

#!/usr/bin/perl
use strict;
use warnings;
use v5.10;

use Time::HiRes qw< gettimeofday tv_interval >;

# Copyright (c) 2020 Andrew Hewus Fresh <andrew@afresh1.com>
#
# Permission to use, copy, modify, and distribute this software for any

afresh1

#!/bin/sh
# tssh -- Andrew Fresh <andrew AT AFresh1.com>
set -e

if [ -z "$*" ]; then
    echo "usage: tssh server1 [[[server2] server3] ...]"
    exit 2
fi

new=""

afresh1

#!/bin/sh
chroot=/var/www # ${PWD}

copy_recurse() {
	file=$1
	[ -e "${chroot}${file}" ] && return

	mkdir -p $( dirname "${chroot}${file}" )
	cp -p "$file" "${chroot}${file}"

afresh1

#!/usr/bin/perl
use v5.30;
use warnings;

use OpenBSD::Pledge;
use OpenBSD::Unveil;

# Copyright (c) 2021 Andrew Hewus Fresh <andrew@afresh1.com>
#
# Permission to use, copy, modify, and distribute this software for any

afresh1

#!/usr/bin/env perl
use v5.16;
use warnings;

#
# Copyright (c) 2021 Andrew Hewus Fresh <andrew@afresh1.com>
#
# Permission to use, copy, modify, and distribute this software for any
# purpose with or without fee is hereby granted, provided that the above
# copyright notice and this permission notice appear in all copies.

afresh1

#!/bin/sh
expect='rsync --server --sender -logDtprze.LsfxC . /'
dir="/${SSH_ORIGINAL_COMMAND#$expect}"

# Try without compression
if [ "$dir" = "/${SSH_ORIGINAL_COMMAND}" ]; then
        expect='rsync --server --sender -logDtpre.LsfxC . /'
        dir="/${SSH_ORIGINAL_COMMAND#$expect}"
fi

afresh1

function _git_prompt() {
    local _branch=`git branch --no-color 2> /dev/null | sed -ne 's/^* //p'`
    [[ -z $_branch ]] && return

    local _bgcolor
    local _color

    for s in `git status --porcelain | tr ' ' '.' | cut -c 1-2`; do
        if [ -z "$_color" ]; then
            case "$s" in

afresh1

I thought perhaps you might like to hear my somewhat unique perspective, although definitely not saying anything others haven't already said. My perspective comes from my three hats, as a perl hobbyist and CPAN author, the maintainer of /usr/bin/perl in OpenBSD, and as someone who has written perl professionally for just short of ten years (the fifteen before that I wrote more and more perl as a sysadmin).

Overall, I think the plan is excellent and hope it mostly moves forward. There's only one tiny issue that might keep me from coming along for the ride.

tl;dr: if the default, without concious indication of something else, for bin/perl is anything but a "best effort at perl5" I believe I, and many other people will be stuck on perl5 forever and never be able to use v7, or v8, or anything later.

First, I should probably explain what I mean by a "best effort perl5". It is the thing we have gotten from perl on code without "use v5;" specified, likely since perl 5 was first released. Most things work, s