From 2f9635a8669f32aad51da62c08de3058be185080 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hinrik=20=C3=96rn=20Sigur=C3=B0sson?= <hinrik.sig@gmail.com>
Date: Fri, 24 Jul 2009 14:20:50 +0000
Subject: [PATCH] Fix S32 parsing bug

---
 Changes                            | 1 +
 lib/App/Grok/Resource/Functions.pm | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/Changes b/Changes
index 3301410..2058ea4 100644
--- a/Changes
+++ b/Changes
@@ -4,6 +4,7 @@
     - Move all resource backends to App::Grok::Resource::*
     - Added Win32::Console::ANSI as a recommended dep
     - Make sure we die if the target is not recognized
+    - Fix small S32 parsing bug, causing Pod errors
 
 0.15 Fri Jul 24 11:47:30 GMT 2009
     - Fix logic error causing 'ansi' not to be the default on non-Win32
diff --git a/lib/App/Grok/Resource/Functions.pm b/lib/App/Grok/Resource/Functions.pm
index a699d84..f43745d 100644
--- a/lib/App/Grok/Resource/Functions.pm
+++ b/lib/App/Grok/Resource/Functions.pm
@@ -99,7 +99,7 @@ sub _read_functions {
 
         my @new_func;
         while (my $line = <$handle>) {
-            if (my ($directive, $title) = $line =~ /^=(\S+) +(.+)/) {
+            if (my ($directive, $title) = $line =~ /^=(\S+)(?: +(.+))?/) {
                 if (defined $new_func[NAME]) {
                     my $name = $new_func[NAME];