summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-07-25 11:16:56 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-07-25 11:16:56 +0000
commitd4937b67df03e7370405e238ab6a1a5d1ca21a32 (patch)
treec2016ec762001aa4175f12b896a47a28e84a4165
parentdbabafe34cc38da53f4244a35aaee5eebe75a6c3 (diff)
downloaddrakx-backup-do-not-use-d4937b67df03e7370405e238ab6a1a5d1ca21a32.tar
drakx-backup-do-not-use-d4937b67df03e7370405e238ab6a1a5d1ca21a32.tar.gz
drakx-backup-do-not-use-d4937b67df03e7370405e238ab6a1a5d1ca21a32.tar.bz2
drakx-backup-do-not-use-d4937b67df03e7370405e238ab6a1a5d1ca21a32.tar.xz
drakx-backup-do-not-use-d4937b67df03e7370405e238ab6a1a5d1ca21a32.zip
remove internal_error (which is now in MDK::Common)
-rw-r--r--perl-install/common.pm6
1 files changed, 1 insertions, 5 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm
index c2e853694..34027a565 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 internal_error);
+@EXPORT = qw($SECTORSIZE __ translate untranslate formatXiB removeXiBSuffix formatTime setVirtual makedev unmakedev salt);
# perl_checker: RE-EXPORT-ALL
push @EXPORT, @MDK::Common::EXPORT;
@@ -180,10 +180,6 @@ sub join_lines {
@l, if_($s, $s);
}
-sub internal_error {
- die "INTERNAL ERROR: $_[0]\n" . backtrace();
-}
-
#-######################################################################################
#- Wonderful perl :(
#-######################################################################################