get_file_name returns a full path, which Install does not like

1 files changed, 15 insertions, 0 deletions

diff --git a/t/00distribution.t b/t/00distribution.t
new file mode 100755
index 0000000..3286c0e
--- /dev/null
+++ b/t/00distribution.t
@@ -0,0 +1,15 @@
+#!/usr/bin/perl
+# $Id: 00distribution.t 1723 2006-10-17 13:53:27Z warly $
+
+use Test::More;
+
+BEGIN {
+    eval {
+        require Test::Distribution;
+    };
+    if($@) {
+        plan skip_all => 'Test::Distribution not installed';
+    } else {
+        import Test::Distribution only => [ qw/use pod description/ ];
+    }
+}