Revision 6c7553a3
Von Moritz Bunkus vor fast 14 Jahren hinzugefügt
| scripts/console | ||
|---|---|---|
| 29 | 29 |
$repl->eval('help');
|
| 30 | 30 |
$repl->print("trying to auto login as '$login'...");
|
| 31 | 31 |
$repl->print($repl->eval("lxinit '$login'"));
|
| 32 |
$repl->print($repl->eval($autorun)) if $autorun; |
|
| 32 |
if ($autorun) {
|
|
| 33 |
my $result = $repl->eval($autorun); |
|
| 34 |
$repl->print($result->message) if ref($result) eq 'Devel::REPL::Error'; |
|
| 35 |
} |
|
| 33 | 36 |
$repl->run; |
| 34 | 37 |
|
| 35 | 38 |
package Devel::REPL; |
Auch abrufbar als: Unified diff
Beim Start auftretende Fehlermeldungen als String ausgeben
Andernfalls zeigt die Console nur "Devel::REPL::Error=HASH..." an.