diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-12-04 19:07:45 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-12-04 19:07:45 +0000 |
| commit | 555a6a99fb88ad745be370843cfc79c26e17eb19 (patch) | |
| tree | 6cc4380ab3acb94f851c7e8612f4c2bfeb62c81e /MDK/Common/Various.pm | |
| parent | c5e1636582b7f63668205b562a701300ea2d1b3f (diff) | |
| download | perl-MDK-Common-555a6a99fb88ad745be370843cfc79c26e17eb19.tar perl-MDK-Common-555a6a99fb88ad745be370843cfc79c26e17eb19.tar.gz perl-MDK-Common-555a6a99fb88ad745be370843cfc79c26e17eb19.tar.bz2 perl-MDK-Common-555a6a99fb88ad745be370843cfc79c26e17eb19.tar.xz perl-MDK-Common-555a6a99fb88ad745be370843cfc79c26e17eb19.zip | |
remove unused variables
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 8a12c14..88db031 100644 --- a/MDK/Common/Various.pm +++ b/MDK/Common/Various.pm @@ -118,7 +118,7 @@ sub chomp_ { my @l = map { my $l = $_; chomp $l; $l } @_; wantarray() ? @l : $l[ sub backtrace { my $s; for (my $i = 1; caller($i); $i++) { - my ($package, $file, $line, $func) = caller($i); + my ($_package, $file, $line, $func) = caller($i); $s .= "$func() called from $file:$line\n"; } $s; @@ -130,7 +130,7 @@ sub internal_error { sub noreturn { if (defined wantarray()) { - my ($package, $file, $line, $func) = caller(1); + my ($_package, $file, $line, $func) = caller(1); my (undef, undef, undef, $func2) = caller(2); die "$file:$line: $func2() expects a value from $func(), but $func() doesn't return any value\n"; } |