]> Sergey Matveev's repositories - schwabrak.git/commitdiff
There is $PERL
authorSergey Matveev <stargrave@stargrave.org>
Thu, 21 Mar 2024 20:06:48 +0000 (23:06 +0300)
committerSergey Matveev <stargrave@stargrave.org>
Thu, 21 Mar 2024 20:06:48 +0000 (23:06 +0300)
comment

diff --git a/comment b/comment
index 12c953d520928c9f6783ec2ea7ec94d6aaac59305bb7fc5651a4d5c9f31dea5d..a2fc9e4193cd891d6e79d5e9b13cdbf589516d6fd1805b401cca25c58d3ccf79 100755 (executable)
--- a/comment
+++ b/comment
@@ -11,15 +11,15 @@ usage() {
 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