Subject: | Todo.pm fails on newer versions of Perl |
This patch makes Todo.pm work on Perl version 5.18 and newer.
Subject: | Todo.patch |
--- Todo.pm 2014-12-27 18:53:01.053589408 +0200
+++ TodoNew.pm 2014-12-27 14:25:27.401541671 +0200
@@ -110,7 +110,7 @@
if ( my ( $pre, $post )
= $path_of{$ident}{$type} =~ /^(.*)$1(.*)\.txt$/ixms )
{
- foreach my $f qw( todo done report ) {
+ foreach my $f (qw( todo done report )) {
if ( !defined $path_of{$ident}{ $f . '_file' } ) {
$path_of{$ident}{ $f . '_file' }
= $pre . $f . $post . '.txt';