Search
j0ke.net Open Build Service
>
Projects
>
home:jg
:
devel
>
perl
> perl-5.8.8-U27426.patch
Sign Up
|
Log In
Username
Password
Cancel
Overview
Repositories
Revisions
Requests
Users
Advanced
Attributes
Meta
File perl-5.8.8-U27426.patch of Package perl
--- perl-5.8.8/perl.c.U27426 2006-06-01 17:04:25.000000000 -0400 +++ perl-5.8.8/perl.c 2006-06-01 19:00:57.000000000 -0400 @@ -3076,8 +3076,7 @@ PL_minus_F = TRUE; PL_splitstr = ++s; while (*s && !isSPACE(*s)) ++s; - *s = '\0'; - PL_splitstr = savepv(PL_splitstr); + PL_splitstr = savepvn(PL_splitstr, s - PL_splitstr); return s; case 'a': PL_minus_a = TRUE;
