mirror of
https://github.com/bdunderscore/modular-avatar.git
synced 2025-04-04 19:49:02 +08:00
22 lines
398 B
Perl
22 lines
398 B
Perl
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
# We want to skip two sections - the main header, then up to the first version header.
|
|
# In a prerelease, we only want to skip the first section (not including the unreleased header)
|
|
|
|
if ($ENV{PRERELEASE} eq 'false') {
|
|
while (<>) {
|
|
if (/^\## /) { last; }
|
|
}
|
|
}
|
|
|
|
|
|
while (<>) {
|
|
if (/^## /) { print; last; }
|
|
}
|
|
|
|
while (<>) {
|
|
print;
|
|
} |