Merge branch 'master' of github.com:yulqen/perlscripts

1 files changed, 1 insertions, 1 deletions

diff --git a/calendar/dayplan_revised.pl b/calendar/dayplan_revised.pl
index 1cf40c8..96eeca0 100755
--- a/calendar/dayplan_revised.pl
+++ b/calendar/dayplan_revised.pl
@@ -41,7 +41,7 @@ sub get_quicknotes_and_quickfiles {
     foreach my $f (glob("$dayplans/*")) {
         open my $fh, "<", $f or die "Cannot open f";
         while (<$fh>) {
-            if ($_ =~ /^- (\w.*)$/) { 
+            if ($_ =~ /^- (.*)$/) { 
                 push @quicknotes => "- $1\n";
                 push @qfiles => "$f\n";
             };