Changeset 24572

Timestamp:

11/21/08 20:40:01 (5 years ago)

Author:

yappo

Message:

not found の code に $func を引数で渡すよ

Files:

• lang/perl/Yacafi/trunk/lib/Yacafi.pm (modified) (1 diff)

lang/perl/Yacafi/trunk/lib/Yacafi.pm

@@ -191 +191 @@
             $response = $code->();
         } else {
-            $response = ref($NOT_FOUND_CODE) eq 'CODE' ? $NOT_FOUND_CODE->() : $NOT_FOUND_CODE;
+            $response = ref($NOT_FOUND_CODE) eq 'CODE' ? $NOT_FOUND_CODE->($func) : $NOT_FOUND_CODE;
         }
     };