Switch.pm doesn't appear to support plain arrays and hashes in case().

diff --git a/lib/Switch.pm b/lib/Switch.pm
index cc2f0db..aa1bade 100644 (file)
--- a/lib/Switch.pm
+++ b/lib/Switch.pm
@@ -524,10 +524,9 @@ released Nov 22, 2006.
        case 1          { print "number 1" }
        case "a"        { print "string a" }
        case [1..10,42] { print "number in list" }
-       case (@array)   { print "number in list" }
+       case (\@array)  { print "number in list" }
        case /\w+/      { print "pattern" }
        case qr/\w+/    { print "pattern" }
-       case (%hash)    { print "entry in hash" }
        case (\%hash)   { print "entry in hash" }
        case (\&sub)    { print "arg to subroutine" }
        else            { print "previous case not true" }