1 files changed, 0 insertions, 110 deletions
diff --git a/contrib/perl5/t/pragma/warn/pp b/contrib/perl5/t/pragma/warn/pp
deleted file mode 100644
index 8f42ba6..0000000
--- a/contrib/perl5/t/pragma/warn/pp
+++ /dev/null
@@ -1,110 +0,0 @@
-  pp.c	TODO
-
-  substr outside of string
-    $a = "ab" ; $b = substr($a, 4,5) ;
-
-  Attempt to use reference as lvalue in substr 
-    $a = "ab" ; $b = \$a ;  substr($b, 1,1) = $b
-
-  uninitialized	in pp_rv2gv()
-	my *b = *{ undef()}
-
-  uninitialized	in pp_rv2sv()
-	my $a = undef ; my $b = $$a
-
-  Odd number of elements in hash list
-	my $a = { 1,2,3 } ;
-
-  Invalid type in unpack: '%c
-	my $A = pack ("A,A", 1,2) ;
-	my @A = unpack ("A,A", "22") ;
-
-  Attempt to pack pointer to temporary value
-	pack("p", "abc") ;
-
-  Explicit blessing to '' (assuming package main)
-	bless \[], "";
-
-  Constant subroutine %s undefined			<<<TODO
-  Constant subroutine (anonymous) undefined		<<<TODO
-
-__END__
-# pp.c
-use warnings 'substr' ;
-$a = "ab" ; 
-$b = substr($a, 4,5) ;
-no warnings 'substr' ;
-$a = "ab" ; 
-$b = substr($a, 4,5)  ;
-EXPECT
-substr outside of string at - line 4.
-########
-# pp.c
-use warnings 'substr' ;
-$a = "ab" ; 
-$b = \$a ;  
-substr($b, 1,1) = "ab" ;
-no warnings 'substr' ;
-substr($b, 1,1) = "ab" ;
-EXPECT
-Attempt to use reference as lvalue in substr at - line 5.
-########
-# pp.c
-use warnings 'uninitialized' ;
-# TODO
-EXPECT
-
-########
-# pp.c
-use warnings 'misc' ;
-my $a = { 1,2,3};
-no warnings 'misc' ;
-my $b = { 1,2,3};
-EXPECT
-Odd number of elements in hash assignment at - line 3.
-########
-# pp.c
-use warnings 'pack' ;
-use warnings 'unpack' ;
-my @a = unpack ("A,A", "22") ;
-my $a = pack ("A,A", 1,2) ;
-no warnings 'pack' ;
-no warnings 'unpack' ;
-my @b = unpack ("A,A", "22") ;
-my $b = pack ("A,A", 1,2) ;
-EXPECT
-Invalid type in unpack: ',' at - line 4.
-Invalid type in pack: ',' at - line 5.
-########
-# pp.c
-use warnings 'uninitialized' ;
-my $a = undef ; 
-my $b = $$a;
-no warnings 'uninitialized' ;
-my $c = $$a;
-EXPECT
-Use of uninitialized value in scalar dereference at - line 4.
-########
-# pp.c
-use warnings 'pack' ;
-sub foo { my $a = "a"; return $a . $a++ . $a++ }
-my $a = pack("p", &foo) ;
-no warnings 'pack' ;
-my $b = pack("p", &foo) ;
-EXPECT
-Attempt to pack pointer to temporary value at - line 4.
-########
-# pp.c
-use warnings 'misc' ;
-bless \[], "" ;
-no warnings 'misc' ;
-bless \[], "" ;
-EXPECT
-Explicit blessing to '' (assuming package main) at - line 3.
-########
-# pp.c
-use utf8 ;
-$_ = "\x80  \xff" ;
-reverse ;
-EXPECT
-########