Opened by styx-cc at 2006-07-11 19:54
User since
2006-05-20
533 Artikel
BenutzerIn
2006-05-20
533 Artikel
BenutzerIn
Soo, ich hab das jetzt wie folg ueberarbeitet, aber des will nich : (
GUI.pm
manipulate.pm
er meckert halt immer noch, das %config deklariert werden soll..
MfG
GUI.pm
Code: (dl
)
1
2
3
4
5
6
7
8
9
package GUI;
use strict;
use diagnostics;
[...]
use base qw(Exporter);
our @EXPORT_OK = qw(%config);
[...]
our %config = ();
&manipulate::load_config();
manipulate.pm
Code: (dl
)
1
2
3
4
5
6
7
8
package manipulate;
use strict;
use Depot::GUI;
[...]
if ($var eq "$option") {
$config{$var} = $value if $value;
last;
}
er meckert halt immer noch, das %config deklariert werden soll..
MfG
Pörl.