Pierre Neidhardt <ambrevar@gmail.com> writes:

> I'm running into a strange issue:
> Line 4506:
>
> 	$item =~ s/chipset|components|computing|computer|corporation|communications|electronics|electrical|electric|gmbh|group|incorporation|industrial|international|nee|revision|semiconductor|software|technologies|technology|ltd\.|<ltd>|\bltd\b|inc\.|<inc>|\binc\b|intl\.|co\.|<co>|corp\.|<corp>|\(tm\)|\(r\)|®|\(rev ..\)|\'|\"|\sinc\s*$|\?//gi;
>
> gets replace by
>
>
> 	$item =~ s/chipset|components|computing|computer|corporation|communications|electronics|electrical|electric|gmbh|group|incorporation|industrial|international|nee|revision|semiconductor|software|technologies|technology|ltd\.|<ltd>|\bltd\b|inc\.|<inc>|\binc\b|intl\.|co\.|<co>|corp\.|<corp>|\(tm\)|\(r\)|??|\(rev ..\)|\'|\"|\sinc\s*$|\?//gi;
>
> More precisely,
>
> 	®
>
> into
>
>   ??
>
> I use the trivial build system and the only substitute (for now) is
>
>            (substitute* "inxi"
>              (("/usr/bin/env perl")
>               (string-append (assoc-ref %build-inputs "perl") "/bin/perl")))

Please, could you try to wrap a ‘substitute*’ procedure with:

    (with-fluids ((%default-port-encoding #f)) (substitute* #;…))

Oleg.