Perl is no longer in base. Long live the port!

1 files changed, 0 insertions, 31 deletions

diff --git a/contrib/perl5/t/pragma/warn/perly b/contrib/perl5/t/pragma/warn/perly
deleted file mode 100644
index afc5dcc..0000000
--- a/contrib/perl5/t/pragma/warn/perly
+++ /dev/null
@@ -1,31 +0,0 @@
-  perly.y	AOK
-
-  dep() => deprecate("\"do\" to call subroutines") 
-  Use of "do" to call subroutines is deprecated
-
-	sub fred {} do fred()
-	sub fred {} do fred(1)
-	sub fred {} $a = "fred" ; do $a()
-	sub fred {} $a = "fred" ; do $a(1)
-
-
-__END__
-# perly.y
-use warnings 'deprecated' ;
-sub fred {} 
-do fred() ;
-do fred(1) ;
-$a = "fred" ; 
-do $a() ;
-do $a(1) ;
-no warnings 'deprecated' ;
-do fred() ;
-do fred(1) ;
-$a = "fred" ; 
-do $a() ;
-do $a(1) ;
-EXPECT
-Use of "do" to call subroutines is deprecated at - line 4.
-Use of "do" to call subroutines is deprecated at - line 5.
-Use of "do" to call subroutines is deprecated at - line 7.
-Use of "do" to call subroutines is deprecated at - line 8.