Re: [mv] Regarding locale and patch!

[Frank Miedreich <miedreich@acm.org>]

>******    message to minivend-users from Hans-Joachim Leidinger
><hans-joachim.leidinger@home.gelsen-net.de>     ******
>
>
>
>Frank Miedreich wrote:
>[DEL]
>> >diff tell me
>> >
>> >---snip------------------
>> >server:#diff Search.pm.sic Search.pm
>> >35c35
>> >< if($ =~ /win32/i) {
>> >---
>> >> if($ =~ /win32/i) {
>> >---snip------------------
>> >
>> >I can't see any difference! But with a hexeditor, is see the difference
>> >like
>> >hexedit Search.pm.sic (original)
>> >00000410   0A 0A 69 66  28 24 0F 20  3D 7E 20 2F  77 69 6E 33  32 2F 69 29
>> >..if($. =~ /win32/i)
>> >                              ^^^^^^^^^
>> >hexedit Search.pm (after patching)
>> >00000410   0A 0A 69 66  28 24 20 3D  7E 20 2F 77  69 6E 33 32  2F 69 29 20
>> >..if($ =~ /win32/i)
>> >                              ^^^^^
>> >
>>
>>
....
>>
>> If you erase this char with hexedit, you should be ok again.
>>
>> Frank
>
>Hi Frank,
>
>thank you a lot for your information!
>
>OK! I can edit the file and erase this char with hexedit.
>But is it possible, that all files of minivend has a lot of this char
>and this char produces some failure? E.g. i have trouble to find an
>items (publisher = WESTFÄLISCHES DAMPFBOOT) with "wesftä" as a
>searchstring and mv_case=0 (or mv_case=no).
>Or why did i get a new tar file from the minvend ftp site with this
>char? I have not changed the version of my FreeBsd, tar or NS.
>
>Don´t misunderstand me. I am new in FreeBSD and perl! I try to find the
>mistake or any error anywhere in my machine or codes. Did i have this
>trouble only?
>
>This is my problem and this is the reason, why i have post my email
>here!
>
>With a big thank for any hints, suggestions, tips, helps or moral
>support
>
>Joachim
>

Weird. I checked, and you are right. There are more occurences of this.
Here is the list in the 3.15-beta4:

Data.pm, line 64: File::Basename::fileparse_set_fstype($\0x0F);
MakeCat.pm, line 260: 	return undef if $\0x0F =~ /win32/i;
MakeCat.pm, line 285: 	return 0 if $\0x0F =~ /win32/i;
MakeCat.pm, line 298: 	return 'everybody' if $\0x0F =~ /win32/i;
MakeCat.pm, line 310: 	return ('everybody', 'nogroup') if $\0x0F =~ /win32/i;
MakeCat.pm, line 323: my $Windows = ($\0x0F =~ /win32/i ? 1 : 0);
Search.pm, line 35: if($\0x0F =~ /win32/i) {
Server.pm, line 810: #("Running in foreground, OS=$\0x0F,
debug=$Global::DEBUG\n")

All these should be $_ actually. I CCed this message to Mike.

Frank



--
Frank Miedreich
Max-Planck-Institut fuer psychologische  Forschung
Leopoldstr. 24   80802 Muenchen   +49 89 38602-237