--- trunk/vz-clone.pl	2009/02/06 10:02:13	61
+++ trunk/vz-clone.pl	2009/02/27 18:37:34	62
@@ -192,9 +192,9 @@
 open(my $o, '<', "$conf/$VEID.conf")  || die "can't open $conf/$VEID.conf: $!";
 open(my $n, '>', "$conf/$CVEID.conf") || die "can't open $conf/$CVEID.conf: $!";
 while(<$o>) {
-	s!^HOSTNAME=(.*)$!fix_hostname($1)!ie;
-	s!^IP_ADDRESS=(.*)$!fix_ip($1)!ie;
-	s!^(ONBOOT=).*$!# modified by $0\n$1"no"!i;
+	s{^HOSTNAME=(.*)$}{fix_hostname($1)}ie;
+	s{^IP_ADDRESS=(.*)$}{fix_ip($1)}ie;
+	s{^(ONBOOT=).*$}{# modified by $0\n$1"no"}i;
 	print $n $_;
 }