diff options
| author | Charles Bailey <bailey@newman.upenn.edu> | 2000-03-02 03:42:49 +0000 |
|---|---|---|
| committer | bailey <bailey@newman.upenn.edu> | 2000-03-02 03:42:49 +0000 |
| commit | ca7a5ef29d14d9f5a7387369d32bdab049ceec5e (patch) | |
| tree | 642fe2d53a11d2640825b0eca62c9861b5896197 /t | |
| parent | e2e27d8c27676a7e69a6e6c43670ea920d84cef4 (diff) | |
| download | perl-ca7a5ef29d14d9f5a7387369d32bdab049ceec5e.tar.gz | |
Temrinate statements in pp_ctl warning test (Charles Lane)
p4raw-id: //depot/vmsperl@5417
Diffstat (limited to 't')
| -rw-r--r-- | t/pragma/warn/pp_ctl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/t/pragma/warn/pp_ctl b/t/pragma/warn/pp_ctl index 0deccd35e2..ea94e9daff 100644 --- a/t/pragma/warn/pp_ctl +++ b/t/pragma/warn/pp_ctl @@ -51,7 +51,7 @@ fred() if $a++ < 200 } - fred() + fred(); (in cleanup) foo bar package Foo; @@ -182,7 +182,7 @@ sub fred fred() if $a++ < 200 } -fred() +fred(); EXPECT Deep recursion on subroutine "main::fred" at - line 6. ######## @@ -194,7 +194,7 @@ sub fred fred() if $a++ < 200 } -fred() +fred(); EXPECT ######## # pp_ctl.c |