imacat/Locale-Maketext-Gettext
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Various fixes to avoid JetBrains IDE problem detection.

Browse Source
This commit is contained in:
依瑪貓
2021-02-07 17:46:47 +08:00
parent bf58ad3861
commit 82cb71ac60
6 changed files with 142 additions and 147 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
t/11-command-line.t
View File

@ -14,7 +14,7 @@ BEGIN { plan tests => 10 }
use FindBin;
use File::Spec::Functions qw(catdir catfile updir);
use lib $FindBin::Bin;
use vars qw($LOCALEDIR $r $maketext);
our ($LOCALEDIR, $r, $maketext);
$LOCALEDIR = catdir($FindBin::Bin, "locale");
$maketext = catdir($FindBin::Bin, updir, "blib", "script", "maketext");

5
t/12-cache.t
View File

@ -1,6 +1,6 @@
#! /usr/bin/perl -w
# Basic test suite
# Copyright (c) 2019 imacat. All rights reserved. This program is free
# Copyright (c) 2019-2021 imacat. All rights reserved. This program is free
# software; you can redistribute it and/or modify it under the same terms
# as Perl itself.
@ -14,7 +14,7 @@ BEGIN { plan tests => 4 }
use FindBin;
use File::Spec::Functions qw(catdir catfile);
use lib $FindBin::Bin;
use vars qw($LOCALEDIR $r);
our ($LOCALEDIR, $r);
$LOCALEDIR = catdir($FindBin::Bin, "locale");
# bindtextdomain
@ -42,7 +42,6 @@ $r = eval {
$_->bindtextdomain("test-cache", $LOCALEDIR);
$_->textdomain("test-cache");
$_[0] = $_->maketext("Hello, world!");
my %Lexicon = %{$_->{"Lexicon"}};
# Update the file but keep the size and mtime
open $FH, "+<$mo_file1" or die "$mo_file1: $!";