From 15e8355f51d30245e1bcdd88044c2f0371542f5b Mon Sep 17 00:00:00 2001 From: Yves Duret Date: Mon, 11 Jun 2001 15:28:18 +0000 Subject: update --- transfugdrake.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'transfugdrake.pm') 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); -- cgit v1.2.1