X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=rt%2Ft%2Fapi%2Fi18n_guess.t;h=0a99011f2ccd0fd228506316b93cb82e934ef437;hb=3ee5a84815cb235c3ebb8fe25517de0364d3dbf7;hp=139ec1acd0fa0dd63435eb3e0733b418248de0a9;hpb=85e677b86fc37c54e6de2b06340351a28f5a5916;p=freeside.git

diff --git a/rt/t/api/i18n_guess.t b/rt/t/api/i18n_guess.t
index 139ec1acd..0a99011f2 100644
--- a/rt/t/api/i18n_guess.t
+++ b/rt/t/api/i18n_guess.t
@@ -1,14 +1,11 @@
-#!/usr/bin/perl
 
 use strict;
 use warnings;
 
 use RT::Test tests => 16;
 
-use Encode qw(encode);
-
-use constant HAS_ENCODE_GUESS => do { local $@; eval { require Encode::Guess; 1 } };
-use constant HAS_ENCODE_DETECT => do { local $@; eval { require Encode::Detect::Detector; 1 } };
+use constant HAS_ENCODE_GUESS => Encode::Guess->require;
+use constant HAS_ENCODE_DETECT => Encode::Detect::Detector->require;
 
 my $string = "\x{442}\x{435}\x{441}\x{442} \x{43f}\x{43e}\x{434}\x{434}\x{435}\x{440}\x{436}\x{43a}\x{430}";