diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-05-08 22:37:03 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-05-08 22:37:03 +0200 |
| commit | 6d743019f3ff1c2efcf74a1e4f98ea5bd3b7351a (patch) | |
| tree | 0789c3863bdd0915e2532954c23eb5a7c886204b /t/op/smartmatch.t | |
| parent | 031a44ed339cfee9d4b2bc19abf15fa19412c9fd (diff) | |
| download | perl-6d743019f3ff1c2efcf74a1e4f98ea5bd3b7351a.tar.gz | |
Make ~~ overloading only be invoked on the right argument
Diffstat (limited to 't/op/smartmatch.t')
| -rw-r--r-- | t/op/smartmatch.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/smartmatch.t b/t/op/smartmatch.t index 3838518eac..75c0ec08e7 100644 --- a/t/op/smartmatch.t +++ b/t/op/smartmatch.t @@ -150,7 +150,7 @@ __DATA__ # regular object @ $obj $obj -@ $ov_obj $obj TODO +@ $ov_obj $obj @ \&fatal $obj @ \&FALSE $obj @ \&foo $obj |