From 22ad938758373ec4e2f8490d62f2cdc237d50d7c Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 11 Nov 2002 22:20:22 +0000
Subject: - replace ... =~ 'foo'  with  ... =~ /foo/ - remove unneeded
 parentheses for things like ... if (...)

---
 perl-install/diskdrake/dav.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/diskdrake')

diff --git a/perl-install/diskdrake/dav.pm b/perl-install/diskdrake/dav.pm
index 73f51ee4c..4b19cf246 100644
--- a/perl-install/diskdrake/dav.pm
+++ b/perl-install/diskdrake/dav.pm
@@ -27,7 +27,7 @@ points, select \"New\".")) },
 			 { val => N("New"), clicked_may_quit => sub { create($in, $all_hds); 1 } },
 			 { val => N("Quit"), icon => "exit", clicked_may_quit => sub { $quit = 1 } },
 		       ]);
-    } until ($quit);
+    } until $quit;
 
     diskdrake::interactive::Done($in, $all_hds);
 }
-- 
cgit v1.2.1