daemon: debug segv correct use of dereferencing NULL.

[libguestfs.git] / perl / t / 500-lib-load.t

diff --git a/perl/t/500-lib-load.t b/perl/t/500-lib-load.t
index 1407169..3b5b054 100644 (file)
--- a/perl/t/500-lib-load.t
+++ b/perl/t/500-lib-load.t
@@ -13,11 +13,22 @@
 #
 # You should have received a copy of the GNU General Public License
 # along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 
 use strict;
 use warnings;
-use Test::More tests => 1;
+
+BEGIN {
+    use Test::More;
+
+    eval "use Locale::TextDomain";;
+    if (exists $INC{"Locale/TextDomain.pm"}) {
+        plan tests => 1;
+    } else {
+        plan skip_all => "no perl-libintl module";
+        exit 0;
+    }
+}
 
 use Sys::Guestfs;
 use Sys::Guestfs::Lib;