perl 5.0 alpha 6

[editor's note: cleaned up from the September '94 InfoMagic CD, just
like the last commit]

1 files changed, 36 insertions, 0 deletions

diff --git a/t/foo.out b/t/foo.out
new file mode 100644
index 0000000000..422ebf8155
--- /dev/null
+++ b/t/foo.out
@@ -0,0 +1,36 @@
+{
+5   TYPE = block exit  ===> DONE
+    FLAGS = (UNKNOWN,KIDS,PARENS)
+    {
+1       TYPE = block entry  ===> 2
+    }
+    {
+2       TYPE = next statement  ===> 3
+        FLAGS = (SCALAR)
+        LINE = 1
+    }
+    {
+4       TYPE = subroutine entry  ===> 5
+        FLAGS = (UNKNOWN,KIDS)
+        {
+            TYPE = null operation  ===> (4)
+            WAS = subroutine reference
+            FLAGS = (SCALAR,KIDS)
+            {
+3               TYPE = glob value  ===> 4
+                FLAGS = (SCALAR)
+                GV = main::foo
+            }
+        }
+    }
+}
+
+SUB ODBM_File::init = (xsub 0x7efb8 0)
+
+SUB SDBM_File::init = (xsub 0x80318 0)
+
+SUB NDBM_File::init = (xsub 0x7ddf8 0)
+
+EXECUTING...
+
+- syntax OK