1 | #! perl | 1 | #! perl |
---|---|---|---|
2 | 2 | ||
3 | use Data::Dumper; | 3 | use strict; |
4 | |||
4 | use Jeweler; | 5 | use Jeweler; |
5 | use List::Util qw/max min sum/; | 6 | use List::Util qw/max min sum/; |
6 | use strict; | ||
7 | 7 | ||
8 | sub ingred_alias { | 8 | sub ingred_alias { |
9 | my ($ing) = @_; | 9 | my ($ing) = @_; |
10 | 10 | ||
11 | my %aliases = ( | 11 | my %aliases = ( |
… | … | ||
269 | }; | 269 | }; |
270 | $@ and warn "ERROR: $@\n"; | 270 | $@ and warn "ERROR: $@\n"; |
271 | } | 271 | } |
272 | ); | 272 | ); |
273 | 273 | ||
274 | Jeweler::read_config "$DATADIR/jeweler.yaml"; | 274 | Jeweler::read_config "res/jeweler.yaml"; |
275 | 275 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |