diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-07-22 11:20:35 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-07-22 11:47:57 +0200 |
| commit | 678ae90b5bfdcb408a7a5c2767d230d736624a6c (patch) | |
| tree | dc6782e9ebf59c86c12095de348cae83397e5ed4 /t | |
| parent | 16f708c9bc0dc48713b200031295a40bed83bbfc (diff) | |
| download | perl-678ae90b5bfdcb408a7a5c2767d230d736624a6c.tar.gz | |
Remove !!! and ??? operators
Those were adding non backwards compatible syntax, unlike "...",
as pointed out in bug #67646.
Diffstat (limited to 't')
| -rw-r--r-- | t/op/yadayada.t | 30 |
1 files changed, 1 insertions, 29 deletions
diff --git a/t/op/yadayada.t b/t/op/yadayada.t index deca46c789..f82aa72537 100644 --- a/t/op/yadayada.t +++ b/t/op/yadayada.t @@ -8,38 +8,10 @@ BEGIN { use strict; -plan 5; +plan 1; my $err = "Unimplemented at $0 line " . ( __LINE__ + 2 ) . ".\n"; eval { ... }; is $@, $err; - -$err = "foo at $0 line " . ( __LINE__ + 2 ) . ".\n"; - -eval { !!! "foo" }; - -is $@, $err; - -$err = "Died at $0 line " . ( __LINE__ + 2 ) . ".\n"; - -eval { !!! }; - -is $@, $err; - -my $warning; - -local $SIG{__WARN__} = sub { $warning = shift }; - -$err = "bar at $0 line " . ( __LINE__ + 2 ) . ".\n"; - -eval { ??? "bar" }; - -is $warning, $err; - -$err = "Warning: something's wrong at $0 line " . ( __LINE__ + 2 ) . ".\n"; - -eval { ??? }; - -is $warning, $err; |