From: Sergey Matveev <stargrave@stargrave.org>
Date: Thu, 21 Mar 2024 20:06:48 +0000 (+0300)
Subject: There is $PERL
X-Git-Url: http://www.git.stargrave.org/?a=commitdiff_plain;h=58668213eae9356bbcea6a1f75362e97a1e5ce0414241ac6d96ff525233d1a65;p=schwabrak.git

There is $PERL
---

diff --git a/comment b/comment
index 12c953d..a2fc9e4 100755
--- 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