| … | … | ||
|---|---|---|---|
| 4 | 4 | ||
| 5 | =cut | 5 | =cut |
| 6 | 6 | ||
| 7 | package Deliantra; | 7 | package Deliantra; |
| 8 | 8 | ||
| 9 | our $VERSION = '1.14'; | 9 | our $VERSION = '1.2'; |
| 10 | 10 | ||
| 11 | use strict; | 11 | use strict; |
| 12 | 12 | ||
| 13 | use base 'Exporter'; | 13 | use base 'Exporter'; |
| 14 | 14 | ||
| … | … | ||
| 488 | } | 488 | } |
| 489 | 489 | ||
| 490 | sub attr_freeze($) { | 490 | sub attr_freeze($) { |
| 491 | my ($ob) = @_; | 491 | my ($ob) = @_; |
| 492 | 492 | ||
| 493 | $ob->{attach} = Deliantra::encode_json $ob->{attach} | 493 | $ob->{attach} = JSON::XS->new->utf8->canonical->encode ($ob->{attach}) |
| 494 | if exists $ob->{attach}; | 494 | if exists $ob->{attach}; |
| 495 | 495 | ||
| 496 | $ob | 496 | $ob |
| 497 | } | 497 | } |
| 498 | 498 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |