diff options
Diffstat (limited to 'transfugdrake.pm')
-rw-r--r-- | transfugdrake.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/transfugdrake.pm b/transfugdrake.pm index 508bc0d..18c0a12 100644 --- a/transfugdrake.pm +++ b/transfugdrake.pm @@ -1,4 +1,4 @@ - #!/usr/bin/perl +#! /usr/bin/perl # # Yves Duret (yduret at mandrakesoft.com) @@ -13,7 +13,7 @@ # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. # -use lib qw(/usr/lib/libDrakX); +use lib q(/usr/lib/libDrakX); use common qw(:common :system :file); use interactive; @@ -40,10 +40,10 @@ $::direct = /-direct/; my $in = interactive::vnew('su'); if (!(-e "/mnt/win_c")) { - print "existe pas !!!!\n"; + print "no windows partitions ?\n"; } if (-e "/mnt/win_c") { - print "existe\n"; + print "windows partitions exists\n"; } @@ -59,7 +59,7 @@ begin: step_1: $::direct or $in->ask_okcancel(_("Transfug"), -_("Pas pour les pdm. +_("Kick windows out of your life. The next step will be bringing back windows(c)(r)(tm) files"), 1) or quit_global($in, 0); |