* Corrected a bum regexp in openid munging.

[ikiwiki.git] / IkiWiki / Setup.pm

diff --git a/IkiWiki/Setup.pm b/IkiWiki/Setup.pm
index 9f210dec896e136c8f9536348fa07626fdda2c9d..560bc798bf4cd03da85e16eeb97aeed4d72125a5 100644 (file)
--- a/IkiWiki/Setup.pm
+++ b/IkiWiki/Setup.pm
@@ -3,13 +3,14 @@
 use warnings;
 use strict;
 use IkiWiki;
 use warnings;
 use strict;
 use IkiWiki;

+use open qw{:utf8 :std};

 
 package IkiWiki;
 
 sub setup () { # {{{
        my $setup=possibly_foolish_untaint($config{setup});
        delete $config{setup};
 
 package IkiWiki;
 
 sub setup () { # {{{
        my $setup=possibly_foolish_untaint($config{setup});
        delete $config{setup};

-       open (IN, $setup) || error("read $setup: $!\n");
+       open (IN, $setup) || error(sprintf(gettext("cannot read %s: %s"), $setup, $!));

        my $code;
        {
                local $/=undef;
        my $code;
        {
                local $/=undef;