PERFORCE change 11111 for review

[Jarkko Hietaniemi]

Change 11111 by jhi@alpha on 2001/07/02 22:48:42

        Subject: [PATCH Deparse.t] test just-posted patches
        From: Robin Houston <[EMAIL PROTECTED]>
        Date: Mon, 2 Jul 2001 23:46:15 +0100
        Message-Id: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/ext/B/Deparse.t#3 edit

Differences ...

==== //depot/perl/ext/B/Deparse.t#3 (text) ====
Index: perl/ext/B/Deparse.t
--- perl/ext/B/Deparse.t.~1~    Mon Jul  2 17:00:05 2001
+++ perl/ext/B/Deparse.t        Mon Jul  2 17:00:05 2001
@@ -15,7 +15,7 @@
 use strict;
 use Config;
 
-print "1..14\n";
+print "1..15\n";
 
 use B::Deparse;
 my $deparse = B::Deparse->new() or print "not ";
@@ -105,7 +105,7 @@
 
 LINE: while (defined($_ = <ARGV>)) {
     chomp $_;
-    @F = split(" ", $_, 0);
+    our(@F) = split(" ", $_, 0);
     '???';
 }
 
@@ -114,27 +114,27 @@
 print "ok " . $i++ . "\n";
 
 __DATA__
-# 1
+# 2
 1;
 ####
-# 2
+# 3
 {
     no warnings;
     '???';
     2;
 }
 ####
-# 3
+# 4
 my $test;
 ++$test and $test /= 2;
 >>>>
 my $test;
 $test /= 2 if ++$test;
 ####
-# 4
+# 5
 -((1, 2) x 2);
 ####
-# 5
+# 6
 {
     my $test = sub : lvalue {
        my $x;
@@ -142,7 +142,7 @@
     ;
 }
 ####
-# 6
+# 7
 {
     my $test = sub : method {
        my $x;
@@ -150,7 +150,7 @@
     ;
 }
 ####
-# 7
+# 8
 {
     my $test = sub : locked method {
        my $x;
@@ -158,7 +158,7 @@
     ;
 }
 ####
-# 8
+# 9
 {
     234;
 }
@@ -166,10 +166,14 @@
     123;
 }
 ####
-# 9
+# 10
 my $x;
 print $main::x;
 ####
-# 10
+# 11
 my @x;
 print $main::x[1];
+####
+# 12
+my %x;
+$x{warn()};
End of Patch.