Improving version history.

lib/GEmeTool/Log.pm

@@ -29,6 +29,7 @@ sub msg {
     my $msg         = shift;
     my $input_file  = shift;
     my $output_file = shift;
+    my $backup_pk3_file = shift;
     my ( $input_file_backup, $output_file_backup ) =
       $self->backup_files( $input_file, $output_file );
     my $db     = GEmeTool::DB->connect;

lib/GEmeTool/Save/Pokemon.pm

@@ -5,6 +5,8 @@ use v5.16.3;
 use strict;
 use warnings;
 
+use Data::Dumper;
+
 use Moo;
 use Rsaves;
 use Rsaves::Constants::Emerald::Species;
@@ -13,6 +15,7 @@ use Path::Tiny;
 use GEmeTool::DB;
 use GEmeTool::Config;
 use Digest::SHA   qw/sha256_hex/;
+use Digest::SHA qw/sha256_hex/;
 use UUID::URandom qw/create_uuid_string/;
 
 has _pokemon => ( is => 'rw', required => 1 );
@@ -43,8 +46,8 @@ sub export_file {
 }
 
 sub export_raw {
-    my $self = shift;
-    return Rsaves::get_pk3_raw( $self->_pokemon );
+    my $self        = shift;
+    return Rsaves::get_pk3_raw($self->_pokemon);
 }
 
 sub empty {
@@ -62,6 +65,7 @@ sub copy {
 sub ivs {
     my $self = shift;
     my $arg  = shift;
+    print Data::Dumper::Dumper $self->_pokemon;
     my $current_value =
       $self->_pokemon->{substructures}[3]{ivs_egg_status_and_ability};
     my @stats = (

lib/GEmeTool/View/PokemonEditorWindow.pm

@@ -120,6 +120,7 @@ sub draw {
     $self->create_change_nickname_entry($box_right_image);
     $save_button->signal_connect(
         clicked => sub {
+            $self->activate_save;
         }
     );
     $delete_button->signal_connect(
@@ -210,6 +211,7 @@ sub activate_save {
     for my $func ( @{ $self->_save_callbacks } ) {
         $func->();
     }
+    $pokemon->backup;
     $self->draw;
 }
 
@@ -273,7 +275,6 @@ sub activate_import_pk3 {
             $file = path( $file->get_path );
             $options->set_last_dir_open( $file->parent . '' );
             $self->activate_save;
-            $self->pokemon->backup;
             $self->pokemon->copy(
                 GEmeTool::Save::Pokemon->load_from_file($file) );
             $self->draw;