Патчинг

[fet4]

Не могу понять в чем проблема, ткнете носом

Есть патч

Код:

#<ACTION> file=>'web/user/dhcp.pl',replace=>'',after=>'dhcp'
 my $rows = Db->do("UPDATE mac_uid SET uid=? $sql_set WHERE ip=INET_ATON(?) AND time>(UNIX_TIMESTAMP()-600)", $uid, $ses::ip);
 Db->ok or Error $lang::user::soft_error;
 $rows < 1 && Error(<<MSG);
#<REPLACE>
 my $rows = Db->do("UPDATE mac_uid SET uid=? $sql_set WHERE ip=INET_ATON(?) AND time>(UNIX_TIMESTAMP()-600)", $uid, $ses::ip);
 Db->ok or Error $lang::user::soft_error;
 $rows < 1 && Error(<<MSG);

 Other code...

Код:

perl install.pl -x

[?] в web/user/dhcp.pl не найден фрагмент:
 my $rows = Db->do("UPDATE mac_uid SET uid=? $sql_set WHERE ip=INET_ATON(?) AND time>(UNIX_TIMESTAMP()-600)", $uid, $ses::ip);
 Db->ok or Error $lang::user::soft_error;
 $rows < 1 && Error(<<MSG);

Что не правильно ?

[Efendy]

В оригинальном файле после $lang::user::soft_error; стоит пробел. А патчинг ищет 1 в 1 фрагменты

[fet4]

  А сколько времени на этом убил, спасибо, буде иметь ввиду.

[Efendy]

Копируешь весь фрагмент в 3 строки и в редакторе запускаешь поиск. Я так сделал и фрагмент не нашелся. Я сделал diff  увидел в чем проблема