oops

Author: mandysulli

.github/scripts/last_release_notes.pl

@@ -0,0 +1,28 @@
+#!/usr/bin/env perl
+
+use English qw(-no_match_vars);
+use warnings;
+use strict;
+
+open my $logfile, '<', 'CHANGELOG.md' or die "Cannot open 'CHANGELOG.md': $OS_ERROR\n";
+
+local $RS = "## [";
+<$logfile>;    # skip
+my $changes = <$logfile>;
+chomp($changes);
+
+my $version = q{};
+if ( $changes =~ /^([\d.]+)\]/smx ) {
+    $version = $1;
+    $changes =~ s/^$version\]/\[v$version\]\[$version\]/smx;
+}
+
+print STDOUT '## Release Notes for ', $changes, "\n";
+
+local $RS = "\n";
+while ( my $line = <$logfile> ) {
+    if ( $line =~ /^\[$version\]/smx ) {
+        print STDOUT $line, "\n";
+        last;
+    }
+}

CHANGELOG.md

@@ -5,6 +5,7 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 
 ## [0.0.0] - 2025-09-19
 ### THIS IS A TEST
+## round 2
 
 
 ## [1.1.2] - 2025-09-19