diff options
| author | Robin Houston <robin@cpan.org> | 2005-12-26 17:56:48 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-12-29 10:21:23 +0000 |
| commit | 705c898ca699069279e27abb37342b93effd7a43 (patch) | |
| tree | 54c6bec4d3c6982ca4ad55aa2fabb5fe594d607e /lib/overload.t | |
| parent | ff5516618f7c7453c21020507e2402e3202b7a63 (diff) | |
| download | perl-705c898ca699069279e27abb37342b93effd7a43.tar.gz | |
Test that constant overloading is propagated into eval
Message-ID: <20051226175648.GA28402@rpc142.cs.man.ac.uk>
p4raw-id: //depot/perl@26521
Diffstat (limited to 'lib/overload.t')
| -rw-r--r-- | lib/overload.t | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lib/overload.t b/lib/overload.t index a30a53b1eb..9614e1e3ff 100644 --- a/lib/overload.t +++ b/lib/overload.t @@ -1201,6 +1201,13 @@ foreach my $op (qw(<=> == != < <= > >=)) { } +{ + my $twenty_three = 23; + # Check that constant overloading propagates into evals + BEGIN { overload::constant integer => sub { 23 } } + test(eval "17", $twenty_three); +} + # Last test is: -sub last {497} +sub last {498} |