From fff5ea8e63b999960bc6ec5a3d9b933ea9cb2f91 Mon Sep 17 00:00:00 2001 From: Paul Buetow Date: Sat, 1 Nov 2025 16:25:58 +0200 Subject: Update content for html --- gemfeed/2025-11-02-perl-new-features-and-foostats.html | 9 ++------- gemfeed/atom.xml | 11 +++-------- 2 files changed, 5 insertions(+), 15 deletions(-) (limited to 'gemfeed') diff --git a/gemfeed/2025-11-02-perl-new-features-and-foostats.html b/gemfeed/2025-11-02-perl-new-features-and-foostats.html index a6dbf75e..b41f40fe 100644 --- a/gemfeed/2025-11-02-perl-new-features-and-foostats.html +++ b/gemfeed/2025-11-02-perl-new-features-and-foostats.html @@ -282,7 +282,6 @@ http://www.gnu.org/software/src-highlite --> 
use v5.38;
 
 print "Hello, world!\n";    # old way
-
 say "Hello, world!";        # new way

@@ -298,13 +297,10 @@ http://www.lorenzobettini.it http://www.gnu.org/software/src-highlite --> 
use v5.38;
 
-sub process_lines {
-    my @lines = @_;
-
+sub process_lines (@lines) {
     my sub trim ($str) {
         $str =~ s/^\s+|\s+$//gr;
     }
-
     return [ map { trim($_) } @lines ];
 }
 
@@ -424,8 +420,7 @@ http://www.lorenzobettini.it
 http://www.gnu.org/software/src-highlite -->
 
use feature qw(defer);
 
-sub parse_log_file {
-    my ($path) = @_;
+sub parse_log_file ($path) {
     open my $fh, '<', $path or die "Cannot open $path: $!";
     defer { close $fh };
 
diff --git a/gemfeed/atom.xml b/gemfeed/atom.xml
index f00451af..f7539dd9 100644
--- a/gemfeed/atom.xml
+++ b/gemfeed/atom.xml
@@ -1,6 +1,6 @@
 
 
-    2025-11-01T16:18:57+02:00
+    2025-11-01T16:25:00+02:00
     foo.zone feed
     To be in the .zone!
     
@@ -289,7 +289,6 @@ http://www.gnu.org/software/src-highlite -->
 
use v5.38;
 
 print "Hello, world!\n";    # old way
-
 say "Hello, world!";        # new way
 

 

@@ -305,13 +304,10 @@ http://www.lorenzobettini.it
 http://www.gnu.org/software/src-highlite -->
 
use v5.38;
 
-sub process_lines {
-    my @lines = @_;
-
+sub process_lines (@lines) {
     my sub trim ($str) {
         $str =~ s/^\s+|\s+$//gr;
     }
-
     return [ map { trim($_) } @lines ];
 }
 
@@ -431,8 +427,7 @@ http://www.lorenzobettini.it
 http://www.gnu.org/software/src-highlite -->
 
use feature qw(defer);
 
-sub parse_log_file {
-    my ($path) = @_;
+sub parse_log_file ($path) {
     open my $fh, '<', $path or die "Cannot open $path: $!";
     defer { close $fh };
 
-- 
cgit v1.2.3