summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-07-17 12:33:37 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-07-17 12:33:37 +0000
commit984c6f75a2494fe910092f070a2a7fd924ff0240 (patch)
treeade77c6631bf163211ee7b6c3da5670805346c69
parent6b9f9f0d2ac9fc8bef0df803a5deac7938d2175e (diff)
downloaddrakx-984c6f75a2494fe910092f070a2a7fd924ff0240.tar
drakx-984c6f75a2494fe910092f070a2a7fd924ff0240.tar.gz
drakx-984c6f75a2494fe910092f070a2a7fd924ff0240.tar.bz2
drakx-984c6f75a2494fe910092f070a2a7fd924ff0240.tar.xz
drakx-984c6f75a2494fe910092f070a2a7fd924ff0240.zip
add function "internal_error" (a specialized "die")
-rw-r--r--perl-install/common.pm6
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 :(
#-######################################################################################