issue=${1#issues/}
comment=issues/$issue/comment
-perl -i -npe 's/^/# /' $comment
+$PERL -i -npe 's/^/# /' $comment
zmodload -F zsh/stat b:zstat
zstat -A ctimePrev +ctime $comment
$EDITOR $comment
zstat -A ctime +ctime $comment
[[ $ctime != $ctimePrev ]] || {
echo Aborting comment >&2
- perl -i -npe 's/^# //' $comment
+ $PERL -i -npe 's/^# //' $comment
exit 0
}
-perl -i -ne 'print if $can; if (/^$/) { $can=1 };' $comment
+$PERL -i -ne 'print if $can; if (/^$/) { $can=1 };' $comment
git add $comment