perl 5.0 alpha 8

[the last one taken from the September '94 InfoMagic CD; a similar
style of cleanup as the previous commits was performed]

1 files changed, 4 insertions, 0 deletions

diff --git a/Bugs/clearmyarray b/Bugs/clearmyarray
new file mode 100644
index 0000000000..e4aecb32ab
--- /dev/null
+++ b/Bugs/clearmyarray
@@ -0,0 +1,4 @@
+@a = ( 5, 6, 7, 8);
+&foo(1, 2, @a);
+
+sub foo { my($a, $b, @c) = @_;  print scalar(@c), "\n"; }