1 files changed, 3 insertions, 17 deletions
diff --git a/dist/Net-Ping/t/100_load.t b/dist/Net-Ping/t/100_load.t
index de84247632..fa04a0c587 100644
--- a/dist/Net-Ping/t/100_load.t
+++ b/dist/Net-Ping/t/100_load.t
@@ -1,7 +1,4 @@
-# Before `make install' is performed this script should be runnable with
-# `make test'. After `make install' it should work as `perl test.t'
-
-######################### We start with some black magic to print on failure.
+use strict;
 
 BEGIN {
   unless (eval "require Socket") {
@@ -10,17 +7,6 @@ BEGIN {
   }
 }
 
-use Test;
-BEGIN { plan tests => 1; $loaded = 0}
-END { ok $loaded;}
-
+use Test::More tests => 1;
 # Just make sure everything compiles
-use Net::Ping;
-
-$loaded = 1;
-
-######################### End of black magic.
-
-# Insert your test code below (better if it prints "ok 13"
-# (correspondingly "not ok 13") depending on the success of chunk 13
-# of the test code):
+BEGIN {use_ok 'Net::Ping'};