whitespace

[p5sagit/Try-Tiny.git] / t / named.t

diff --git a/t/named.t b/t/named.t
index 7de53b1..dfa6a97 100644 (file)
--- a/t/named.t
+++ b/t/named.t
@@ -1,13 +1,12 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 
 use Test::More;
 
 BEGIN {
-    plan skip_all => "Sub::Name required"
-        unless eval { require Sub::Name; 1 };
+    plan skip_all => "Sub::Util or Sub::Name required"
+        unless eval { require Sub::Util; defined &Sub::Util::set_subname; }
+            || eval { require Sub::Name; Sub::Name->VERSION(0.08) };
     plan tests => 3;
 }
 
@@ -34,4 +33,3 @@ try {
     $name = (caller(0))[3];
 };
 is $name, "main::finally {...} ", "finally name"; # note extra space
-