be more consistent in variables/steps naming

1 files changed, 5 insertions, 5 deletions

diff --git a/transfugdrake b/transfugdrake
index bd76c41..7cb7896 100755
--- a/transfugdrake
+++ b/transfugdrake
@@ -9,9 +9,9 @@ use interactive;
 use common;
 
 my %distrib = distrib();
-my $win_disk = get_windows_disk();
+my $windows_disk = get_windows_disk();
 my @linux_users = list_users();
-my @windows_users = list_windows_users($win_disk);
+my @windows_users = list_windows_users($windows_disk);
 my %windows_bookmarks = list_windows_bookmarks();
 my %windows_mail = list_windows_mail();
 
@@ -30,7 +30,7 @@ my $wiz = wizards->new({
         welcome => {
             name => N("This wizard will help you to import Windows documents and settings in your %s distribution.", $distrib{system}) . "\n" . N("It allows two differents migration methods: you can either import all documents and settings by copying them, or share them between operating systems."),
             post => sub {
-                $win_disk or return 'no_win';
+                $windows_disk or return 'no_windows';
                 $linux_user = @linux_users == 1 && $linux_users[0];
                 $windows_user = @windows_users == 1 && $windows_users[0];
                 !$linux_user || !$windows_user ? 'users' : 'files';
@@ -53,7 +53,7 @@ my $wiz = wizards->new({
                 },
             ],
             post => sub {
-                @windows_items = list_windows_items($win_disk, $windows_user);
+                @windows_items = list_windows_items($windows_disk, $windows_user);
                 'files';
             },
         },
@@ -132,7 +132,7 @@ my $wiz = wizards->new({
             name => N("Congratulations, your migration is now completed!"),
             end => 1,
         },
-        no_win => {
+        no_windows => {
             name => N("No Windows installation has been detected."),
             end => 1,
         },