diff options
| author | Dave Rolsky <autarch@urth.org> | 2011-01-30 09:18:42 -0600 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-01-30 18:33:53 -0800 |
| commit | 4e0d6ba89bf706d54e3a5e8cfc009a6a16536765 (patch) | |
| tree | 344e157ae5e7a442d506060b99949f58c78b575d | |
| parent | 8bdb331de305cdd0b80ba1ef7c180518f4adc93d (diff) | |
| download | perl-4e0d6ba89bf706d54e3a5e8cfc009a6a16536765.tar.gz | |
Don't refer to specific line numbers in test code regex
| -rw-r--r-- | lib/Carp.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Carp.t b/lib/Carp.t index 8240cd3bab..ffbb22226d 100644 --- a/lib/Carp.t +++ b/lib/Carp.t @@ -307,7 +307,7 @@ for my $bodge_job (2, 1, 0) { for (0..2) { my $previous_package = $package; ++$package; - like( $got, qr/${package}::long\($warning\) called at $previous_package line 7/, "Correct arguments for $package" ); + like( $got, qr/${package}::long\($warning\) called at $previous_package line \d+/, "Correct arguments for $package" ); } my $arg = $bodge_job ? $warning : 42; like( $got, qr!A::long\($arg\) called at.+\b(?i:carp\.t) line \d+!, |