diff options
| author | Andreas Brachold <vdr07@deltab.de> | 2008-04-07 16:11:08 +0000 |
|---|---|---|
| committer | Andreas Brachold <vdr07@deltab.de> | 2008-04-07 16:11:08 +0000 |
| commit | 4661c74cdb300f64e3058cbc384148d76c703d56 (patch) | |
| tree | e9415a41777b589a44bc2bac854e5694f98b925c /lib/XXV/MODULES/INTERFACE.pm | |
| parent | 00bd3aff2a832d6b7379fc02ccbd5c884acc6d7c (diff) | |
| download | xxv-4661c74cdb300f64e3058cbc384148d76c703d56.tar.gz xxv-4661c74cdb300f64e3058cbc384148d76c703d56.tar.bz2 | |
* Remove String::Escape, use now regular expression to remove unwanted part of unicode as last character
* Reformat message 'Couldn't load perl module...'
* different ways to load binary/text files
* RECORDS: Prepare list of commands at perl code and not into template code
* RECORDS: Load images less strictness
* Reorder locale routines
Diffstat (limited to 'lib/XXV/MODULES/INTERFACE.pm')
| -rw-r--r-- | lib/XXV/MODULES/INTERFACE.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/XXV/MODULES/INTERFACE.pm b/lib/XXV/MODULES/INTERFACE.pm index db7c4ee..243ac15 100644 --- a/lib/XXV/MODULES/INTERFACE.pm +++ b/lib/XXV/MODULES/INTERFACE.pm @@ -70,7 +70,10 @@ sub new { # Try to use the Requirments map { eval "use $_"; - return panic("\nCouldn't load perl module: $_\nPlease install this module on your system:\nperl -MCPAN -e 'install $_'") if($@); + if($@) { + my $m = (split(/ /, $_))[0]; + return panic("\nCouldn't load perl module: $m\nPlease install this module on your system:\nperl -MCPAN -e 'install $m'"); + } } keys %{$self->{MOD}->{Prereq}}; # read the DB Handle |