旧バージョン互換関数のパラメータ修正

diff --git a/lib/common.pl b/lib/common.pl
index c4aaba0..d1cc970 100644 (file)
--- a/lib/common.pl
+++ b/lib/common.pl
@@ -61,17 +61,17 @@ sub print_footer {
 # µìVer(0.0.11)¸ß´¹À­°Ý»ý
 # ¼¡´ü¥Ð¡¼¥¸¥ç¥ó¤Çºï½ü¤µ¤ì¤Þ¤¹¡£
 #-------------------------------------------------------------------------------
 # µìVer(0.0.11)¸ß´¹À­°Ý»ý
 # ¼¡´ü¥Ð¡¼¥¸¥ç¥ó¤Çºï½ü¤µ¤ì¤Þ¤¹¡£
 #-------------------------------------------------------------------------------

-sub redirect { return &Wiki::redirect($@); }
-sub redirectURL { return &Wiki::redirectURL($@); }
+sub redirect { return &Wiki::redirect(@_); }
+sub redirectURL { return &Wiki::redirectURL(@_); }

 
 package Wiki;
 sub exists_page { return &page_exists(shift); }
 
 package Wiki;
 sub exists_page { return &page_exists(shift); }

-sub send_mail { return &Util::send_mail($@); }
+sub send_mail { return &Util::send_mail(@_); }

 
 package HTMLParser;
 
 package Util;
 
 package HTMLParser;
 
 package Util;

-sub parse_plugin { return &Wiki::parse_inline_plugin($@); }
+sub parse_plugin { return &Wiki::parse_inline_plugin(@_); }

 
 ###############################################################################
 #
 
 ###############################################################################
 #