projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
b62fb10
)
Switch.pm doesn't appear to support plain arrays and hashes in case().
author
Rafael Garcia-Suarez
<rgarciasuarez@gmail.com>
Sun, 28 Dec 2008 22:03:27 +0000
(23:03 +0100)
committer
Rafael Garcia-Suarez
<rgarciasuarez@gmail.com>
Sun, 28 Dec 2008 22:03:27 +0000
(23:03 +0100)
lib/Switch.pm
patch
|
blob
|
history
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" }