| … | … | ||
|---|---|---|---|
| 5 | my ($file) = @_; | 5 | my ($file) = @_; |
| 6 | 6 | ||
| 7 | open CFG, $file | 7 | open CFG, $file |
| 8 | or return; | 8 | or return; |
| 9 | 9 | ||
| 10 | local $/; | ||
| 10 | $::CFG = eval join '', <CFG>; | 11 | $::CFG = eval <CFG>; |
| 11 | 12 | ||
| 12 | close CFG; | 13 | close CFG; |
| 13 | } | 14 | } |
| 14 | 15 | ||
| 15 | sub write_cfg { | 16 | sub write_cfg { |
| … | … | ||
| 71 | }); | 72 | }); |
| 72 | 73 | ||
| 73 | $w->show_all; | 74 | $w->show_all; |
| 74 | 75 | ||
| 75 | $w->signal_connect (destroy => sub { Gtk2->main_quit }); | 76 | $w->signal_connect (destroy => sub { Gtk2->main_quit }); |
| 76 | Gtk2->main; | ||
| 77 | } | 77 | } |
| 78 | 78 | ||
| 79 | 1; | 79 | 1; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |