Fix a few test annoyances.
[catagits/Gitalist.git] / t / 02git_Repository.t
index ae069eb..c8aae14 100644 (file)
@@ -18,7 +18,7 @@ BEGIN {
     # Mocking to allow testing regardless of the user's locale
     require I18N::Langinfo if $^O ne 'MSWin32';
     no warnings 'redefine';
-    *I18N::Langinfo::langinfo = sub($) {
+    *I18N::Langinfo::langinfo = sub(_) {
         return "UTF-8" if $_[0] == I18N::Langinfo::CODESET();
     };
     *CORE::GLOBAL::getpwuid = sub {