diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-07-17 12:33:37 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-07-17 12:33:37 +0000 |
| commit | 984c6f75a2494fe910092f070a2a7fd924ff0240 (patch) | |
| tree | ade77c6631bf163211ee7b6c3da5670805346c69 | |
| parent | 6b9f9f0d2ac9fc8bef0df803a5deac7938d2175e (diff) | |
| download | drakx-backup-do-not-use-984c6f75a2494fe910092f070a2a7fd924ff0240.tar drakx-backup-do-not-use-984c6f75a2494fe910092f070a2a7fd924ff0240.tar.gz drakx-backup-do-not-use-984c6f75a2494fe910092f070a2a7fd924ff0240.tar.bz2 drakx-backup-do-not-use-984c6f75a2494fe910092f070a2a7fd924ff0240.tar.xz drakx-backup-do-not-use-984c6f75a2494fe910092f070a2a7fd924ff0240.zip | |
add function "internal_error" (a specialized "die")
| -rw-r--r-- | perl-install/common.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm index a673dce04..d982226e6 100644 --- a/perl-install/common.pm +++ b/perl-install/common.pm @@ -8,7 +8,7 @@ use vars qw(@ISA @EXPORT $SECTORSIZE); @ISA = qw(Exporter); # no need to export ``_'' -@EXPORT = qw($SECTORSIZE __ translate untranslate formatXiB removeXiBSuffix formatTime setVirtual makedev unmakedev salt); +@EXPORT = qw($SECTORSIZE __ translate untranslate formatXiB removeXiBSuffix formatTime setVirtual makedev unmakedev salt internal_error); # perl_checker: RE-EXPORT-ALL push @EXPORT, @MDK::Common::EXPORT; @@ -180,6 +180,10 @@ sub join_lines { @l, if_($s, $s); } +sub internal_error { + die "INTERNAL ERROR: $_[0]\n" . backtrace(); +} + #-###################################################################################### #- Wonderful perl :( #-###################################################################################### |