view release on metacpan or  search on metacpan

run-and-save  view on Meta::CPAN

	    exit 1;;
    esac
fi

read -r line
case $line in
    \#!*)
	printf '%s\n\n' "$line" >&3;;
    \#COMMIT)
	printf '#!/bin/sh\n\n:\n' >&3
	chmod u+x "$saveas"
	exec 3>&-
	test "${saveas#/}" = "$saveas" && exec "./$saveas"
	exec "$saveas";;
    \#ROLLBACK)
	exit 1;;
    \#NAME)
	echo "Duplicit name given" >&2
	exit 1;;
    *)
	printf '#!/bin/sh\n\n%s\n' "$line" >&3;;
esac

while read -r line; do
    case $line in
	\#COMMIT)
	    mv -b -f "$tmp" "$saveas"
	    chmod u+x "$saveas"
	    exec 3>&-
	    test "${saveas#/}" = "$saveas" && exec "./$saveas"
	    exec "$saveas";;
	\#ROLLBACK)
	    exit 1;;
	*)
	    printf '%s\n' "$line" >&3;;
    esac
done