diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-04-24 19:15:13 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-04-24 19:15:13 +0000 |
| commit | a8c17fafaed296f970c218cec4ffe3ba72a9cb7d (patch) | |
| tree | 4d9745497fbc388783198c75647cdfb3f35318d9 /MDK/Common/Various.pm | |
| parent | 8c10b45b309f489da1d21e7508b91082ed9f52db (diff) | |
| download | perl-MDK-Common-a8c17fafaed296f970c218cec4ffe3ba72a9cb7d.tar perl-MDK-Common-a8c17fafaed296f970c218cec4ffe3ba72a9cb7d.tar.gz perl-MDK-Common-a8c17fafaed296f970c218cec4ffe3ba72a9cb7d.tar.bz2 perl-MDK-Common-a8c17fafaed296f970c218cec4ffe3ba72a9cb7d.tar.xz perl-MDK-Common-a8c17fafaed296f970c218cec4ffe3ba72a9cb7d.zip | |
perl_checker adaptations
Diffstat (limited to 'MDK/Common/Various.pm')
| -rw-r--r-- | MDK/Common/Various.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/MDK/Common/Various.pm b/MDK/Common/Various.pm index 88db031..2abbb14 100644 --- a/MDK/Common/Various.pm +++ b/MDK/Common/Various.pm @@ -115,7 +115,7 @@ sub text2bool { my $t = lc($_[0]); $t eq "true" || $t eq "yes" ? 1 : 0 } sub chomp_ { my @l = map { my $l = $_; chomp $l; $l } @_; wantarray() ? @l : $l[0] } -sub backtrace { +sub backtrace() { my $s; for (my $i = 1; caller($i); $i++) { my ($_package, $file, $line, $func) = caller($i); @@ -128,7 +128,7 @@ sub internal_error { die "INTERNAL ERROR: $_[0]\n" . backtrace(); } -sub noreturn { +sub noreturn() { if (defined wantarray()) { my ($_package, $file, $line, $func) = caller(1); my (undef, undef, undef, $func2) = caller(2); |