Squelch warning in deparse.t

diff --git a/dist/B-Deparse/t/deparse.t b/dist/B-Deparse/t/deparse.t
index ab50b5a..d32d1f4 100644 (file)
--- a/dist/B-Deparse/t/deparse.t
+++ b/dist/B-Deparse/t/deparse.t
@@ -209,6 +209,7 @@ sub BEGIN {
 EOCODF
 
 # [perl #93990]
+@* = ();
 is($deparse->coderef2text(sub{ print "@{*}" }),
 q<{
     print "@{*}";