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

1 files changed, 0 insertions, 119 deletions

diff --git a/contrib/perl5/t/pragma/warn/regexec b/contrib/perl5/t/pragma/warn/regexec
deleted file mode 100644
index 73696df..0000000
--- a/contrib/perl5/t/pragma/warn/regexec
+++ /dev/null
@@ -1,119 +0,0 @@
-  regexec.c	
-
-  This test generates "bad free" warnings when run under
-  PERL_DESTRUCT_LEVEL.  This file merely serves as a placeholder
-  for investigation.
-
-  Complex regular subexpression recursion limit (%d) exceeded
-
-        $_ = 'a' x (2**15+1); /^()(a\1)*$/ ;
-  Complex regular subexpression recursion limit (%d) exceeded
-
-        $_ = 'a' x (2**15+1); /^()(a\1)*?$/ ;
-
-  (The actual value substituted for %d is masked in the tests so that
-  REG_INFTY configuration variable value does not affect outcome.)
-__END__
-# regexec.c
-print("SKIPPED\n# most systems run into stacksize limits\n"),exit;
-use warnings 'regexp' ;
-$SIG{__WARN__} = sub{local ($m) = shift;
-                 $m =~ s/\(\d+\)/(*MASKED*)/;
-                 print STDERR $m};
-$_ = 'a' x (2**15+1); 
-/^()(a\1)*$/ ;
-#
-# If this test fails with a segmentation violation or similar,
-# you may have to increase the default stacksize limit in your
-# shell.  You may need superuser privileges.
-#
-# Under the sh, ksh, zsh:
-#    $ ulimit -s
-#    8192
-#    $ ulimit -s 16000
-#
-# Under the csh:
-#    % limit stacksize
-#    stacksize        8192 kbytes
-#    % limit stacksize 16000
-#
-EXPECT
-Complex regular subexpression recursion limit (*MASKED*) exceeded at - line 9.
-########
-# regexec.c
-print("SKIPPED\n# most systems run into stacksize limits\n"),exit;
-no warnings 'regexp' ;
-$SIG{__WARN__} = sub{local ($m) = shift;
-                 $m =~ s/\(\d+\)/(*MASKED*)/;
-                 print STDERR $m};
-$_ = 'a' x (2**15+1); 
-/^()(a\1)*$/ ;
-#
-# If this test fails with a segmentation violation or similar,
-# you may have to increase the default stacksize limit in your
-# shell.  You may need superuser privileges.
-#
-# Under the sh, ksh, zsh:
-#    $ ulimit -s
-#    8192
-#    $ ulimit -s 16000
-#
-# Under the csh:
-#    % limit stacksize
-#    stacksize        8192 kbytes
-#    % limit stacksize 16000
-#
-EXPECT
-
-########
-# regexec.c
-print("SKIPPED\n# most systems run into stacksize limits\n"),exit;
-use warnings 'regexp' ;
-$SIG{__WARN__} = sub{local ($m) = shift;
-                 $m =~ s/\(\d+\)/(*MASKED*)/;
-                 print STDERR $m};
-$_ = 'a' x (2**15+1);
-/^()(a\1)*?$/ ;
-#
-# If this test fails with a segmentation violation or similar,
-# you may have to increase the default stacksize limit in your
-# shell.  You may need superuser privileges.
-#
-# Under the sh, ksh, zsh:
-#    $ ulimit -s
-#    8192
-#    $ ulimit -s 16000
-#
-# Under the csh:
-#    % limit stacksize
-#    stacksize        8192 kbytes
-#    % limit stacksize 16000
-#
-EXPECT
-Complex regular subexpression recursion limit (*MASKED*) exceeded at - line 9.
-########
-# regexec.c
-print("SKIPPED\n# most systems run into stacksize limits\n"),exit;
-no warnings 'regexp' ;
-$SIG{__WARN__} = sub{local ($m) = shift;
-                 $m =~ s/\(\d+\)/(*MASKED*)/;
-                 print STDERR $m};
-$_ = 'a' x (2**15+1);
-/^()(a\1)*?$/ ;
-#
-# If this test fails with a segmentation violation or similar,
-# you may have to increase the default stacksize limit in your
-# shell.  You may need superuser privileges.
-#
-# Under the sh, ksh, zsh:
-#    $ ulimit -s
-#    8192
-#    $ ulimit -s 16000
-#
-# Under the csh:
-#    % limit stacksize
-#    stacksize        8192 kbytes
-#    % limit stacksize 16000
-#
-EXPECT
-