/[pkgs]/devel/perl/perl-5.10.0-Change33897.patch
ViewVC logotype

Contents of /devel/perl/perl-5.10.0-Change33897.patch

Parent Directory Parent Directory | Revision Log Revision Log

Revision 1.1 - (show annotations) (download) (as text)
Sat Nov 29 00:10:09 2008 UTC (11 months, 3 weeks ago) by spot
Branch: MAIN
CVS Tags: F-12-split, perl-5_10_0-63_fc11, perl-5_10_0-61_fc11, perl-5_10_0-80_fc12, perl-5_10_0-81_fc12, perl-5_10_0-84_fc13, perl-5_10_0-82_fc13, perl-5_10_0-51_fc11, perl-5_10_0-77_fc12, perl-5_10_0-83_fc13, perl-5_10_0-71_fc12, perl-5_10_0-57_fc11, perl-5_10_0-75_fc12, perl-5_10_0-53_fc11, perl-5_10_0-73_fc12, perl-5_10_0-68_fc11, perl-5_10_0-67_fc11, perl-5_10_0-64_fc11, perl-5_10_0-72_fc12, perl-5_10_0-54_fc11, F-11-split, perl-5_10_0-62_fc11, perl-5_10_0-69_fc12, perl-5_10_0-79_fc12, perl-5_10_0-78_fc12, perl-5_10_0-56_fc11, perl-5_10_0-70_fc12, perl-5_10_0-52_fc11, perl-5_10_0-74_fc12, perl-5_10_0-66_fc11, perl-5_10_0-59_fc11, perl-5_10_0-65_fc11, perl-5_10_0-58_fc11, perl-5_10_0-60_fc11, perl-5_10_0-76_fc12, HEAD
File MIME type: text/x-patch 
fix bz 473223
1 --- perl/ext/POSIX/POSIX.xs#152~33896~ 2008-05-21 02:18:00.000000000 -0700
2 +++ perl/ext/POSIX/POSIX.xs 2008-05-21 03:31:32.000000000 -0700
3 @@ -649,26 +649,37 @@
4 int
5 WEXITSTATUS(status)
6 int status
7 -
8 -int
9 -WIFEXITED(status)
10 - int status
11 -
12 -int
13 -WIFSIGNALED(status)
14 - int status
15 -
16 -int
17 -WIFSTOPPED(status)
18 - int status
19 -
20 -int
21 -WSTOPSIG(status)
22 - int status
23 -
24 -int
25 -WTERMSIG(status)
26 - int status
27 + ALIAS:
28 + POSIX::WIFEXITED = 1
29 + POSIX::WIFSIGNALED = 2
30 + POSIX::WIFSTOPPED = 3
31 + POSIX::WSTOPSIG = 4
32 + POSIX::WTERMSIG = 5
33 + CODE:
34 + switch(ix) {
35 + case 0:
36 + RETVAL = WEXITSTATUS(status);
37 + break;
38 + case 1:
39 + RETVAL = WIFEXITED(status);
40 + break;
41 + case 2:
42 + RETVAL = WIFSIGNALED(status);
43 + break;
44 + case 3:
45 + RETVAL = WIFSTOPPED(status);
46 + break;
47 + case 4:
48 + RETVAL = WSTOPSIG(status);
49 + break;
50 + case 5:
51 + RETVAL = WTERMSIG(status);
52 + break;
53 + default:
54 + Perl_croak(aTHX_ "Illegal alias %d for POSIX::W*", ix);
55 + }
56 + OUTPUT:
57 + RETVAL
58
59 int
60 isalnum(charstring)
61
admin@fedoraproject.org
 ViewVC Help
Powered by ViewVC 1.1.2