diff options
| author | Ricardo Signes <rjbs@cpan.org> | 2015-03-19 18:59:39 -0400 |
|---|---|---|
| committer | Ricardo Signes <rjbs@cpan.org> | 2015-03-19 19:12:10 -0400 |
| commit | a7b5f7a18d777e5893dc505e667c95cb64145ee9 (patch) | |
| tree | 37977b06b1a752dd3cf3bb6df156bc51c87eb50e | |
| parent | 77f7a5f46952c6d0ba0a3c95af769b3b764bf65a (diff) | |
| download | perl-a7b5f7a18d777e5893dc505e667c95cb64145ee9.tar.gz | |
Carp: avoid hardcoded lines and filenames in test
| -rw-r--r-- | dist/Carp/t/Carp.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/dist/Carp/t/Carp.t b/dist/Carp/t/Carp.t index b12c482ae8..3d707a13b1 100644 --- a/dist/Carp/t/Carp.t +++ b/dist/Carp/t/Carp.t @@ -28,10 +28,10 @@ BEGIN { } { - my $str = Carp::longmess("foo"); + my $line = __LINE__; my $str = Carp::longmess("foo"); is( $str, - "foo at t/Carp.t line 31.\n", + "foo at $0 line $line.\n", "we don't overshoot the top stack frame", ); } |