reassign 304043 libconfigfile-perl
tag 304043 + patch
thanks

Robert Millan <[EMAIL PROTECTED]> writes:
> This error also happens on normal operation (when using the dpkg patch from
> #280559).  It seems that somewhere it is passing
> -m'Robert Millan <[EMAIL PROTECTED]>' without enough scape characters, and
> something recieves separate "-m'Robert" and "<[EMAIL PROTECTED]>'" strings 
> which
> has its chances to break stuff :)
>
> Also I don't know where it gets my name/email from.  Not from standard 
> variable
> names at least:
>
> $ DEBFULLNAME="" DEBEMAIL="" dpkg-sig not-found
> Subroutine Cwd::fastcwd redefined at /usr/lib/perl/5.8/XSLoader.pm line 91.
> I: No action requested, verifying files.
> Bareword found where operator expected at (eval 9) line 1, near "'"-m'Robert"
>         (Missing operator before Robert?)
> Possible unintended interpolation of @debian in string at (eval 9) line 1, 
> <CONF> line 156.
> String found where operator expected at (eval 9) line 1, near "<[EMAIL 
> PROTECTED]>'"'"
>         (Missing operator before '"'?)
> E: We can only work on debs and changes files.

OK, i've found the problem in libconfigfile-perl (i'm reassigning the
bug with this mail). This patch should fix the issue:

--- ConfigFile.pm.old   2003-10-27 03:55:40.000000000 +0100
+++ ConfigFile.pm       2005-04-11 16:30:49.000000000 +0200
@@ -28,8 +28,10 @@
            exists($Conf->{$1}) ? $Conf->{$1} : "\$$1"
            }gsex;
         $line =~ m/\s*([^\s=]+)\s*=\s*(.*?)\s*$/;
-       eval '$Conf->{' . join("}->{", split /[][]+/, $1) .
-           "} = '" . $2 . "'";
+       my ($conf_ele, $conf_data) = ($1, $2);
+       $conf_ele = '$Conf->{' . join("}->{", split /[][]+/, $conf_ele) . "}";
+       $conf_data =~ s!([\\'])!\\$1!g;
+       eval "$conf_ele = $conf_data";
 #        $Conf->{$1}=$2;
     }
     close CONF;

Marc
-- 
$_=')(hBCdzVnS})3..0}_$;//::niam/s~=)]3[))_$(rellac(=_$({pam(esrever })e$.)4/3*
)e$(htgnel+23(rhc,"u"(kcapnu ,""nioj ;|_- |/+9-0z-aZ-A|rt~=e$;_$=e${pam tnirp{y
V2ajFGabus} yV2ajFGa&{gwmclBHIbus}gwmclBHI&{yVGa09mbbus}yVGa09mb&{hBCdzVnSbus';
s/\n//g;s/bus/\nbus/g;eval scalar reverse   # <mailto:[EMAIL PROTECTED]>

Attachment: pgpPv9EtoKPjh.pgp
Description: PGP signature

Reply via email to