Added an exception for namedproto: use feature
authorPeter Martini <PeterCMartini@GMail.com>
Wed, 17 Oct 2012 22:22:36 +0000 (18:22 -0400)
committerPeter Martini <PeterCMartini@GMail.com>
Wed, 17 Oct 2012 22:22:36 +0000 (18:22 -0400)
t/porting/test_bootstrap.t

index 499c094..8d80aff 100644 (file)
@@ -20,7 +20,7 @@ open my $fh, '<', '../MANIFEST' or die "Can't open MANIFEST: $!";
 my %exceptions = (hints => "require './test.pl'",
                  parser => 'use DieDieDie',
                  proto => 'use strict',
-                  namedproto => qr/require (?:warnings|Scalar::Util)/,
+                  namedproto => qr/(?:require (?:warnings|Scalar::Util)|use feature)/,
                 );
                  
 while (my $file = <$fh>) {