diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-07-25 11:16:56 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-07-25 11:16:56 +0000 |
| commit | d4937b67df03e7370405e238ab6a1a5d1ca21a32 (patch) | |
| tree | c2016ec762001aa4175f12b896a47a28e84a4165 | |
| parent | dbabafe34cc38da53f4244a35aaee5eebe75a6c3 (diff) | |
| download | drakx-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.pm | 6 |
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 :( #-###################################################################################### |