make getpeername() return the original socket address which before it was intercepted

[hband-tools.git] / user-tools / perl-repl

#!/bin/sh

true <<EOF
=pod

=head1 NAME

perl-repl - Read-Evaluate-Print-Loop wrapper for perl(1)

=cut

EOF


exec rlwrap /usr/libexec/perlshell "$@"