We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent ce59abd commit fd4a683Copy full SHA for fd4a683
1 file changed
dev-bin/release.sh
@@ -5,8 +5,8 @@ set -e
5
VERSION=$(perl -MFile::Slurp::Tiny=read_file -MDateTime <<EOF
6
use v5.16;
7
my \$log = read_file(q{CHANGELOG.md});
8
-\$log =~ /\n(\d+\.\d+\.\d+(?:-[\w\.\-]+)) \((\d{4}-\d{2}-\d{2})\)\n/;
9
-die 'Release time is not today!' unless DateTime->now->ymd eq \$2;
+\$log =~ /\n(\d+\.\d+\.\d+(?:-[\w\.\-]+)?) \((\d{4}-\d{2}-\d{2})\)\n/;
+die "Release time (\$2) is not today!" unless DateTime->now->ymd eq \$2;
10
say \$1;
11
EOF
12
)
0 commit comments