← Back to branch summary

~ubuntu-branches/ubuntu/hardy/openssl/hardy-security

« back to all changes in this revision

Viewing changes to util/ck_errf.pl

  • Committer: Bazaar Package Importer
  • Author(s): Kurt Roeckx
  • Date: 2005-12-13 21:37:42 UTC
  • mfrom: (1.1.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20051213213742-7em5nrw5c7ceegyd
Tags: 0.9.8a-5
http://bugs.debian.org/335912
Stop ssh from crashing randomly on sparc (Closes: #335912)
Patch from upstream cvs.

Show diffs side-by-side

added added

removed removed

Lines of Context:
util/ck_errf.pl
13
13
        $func="";
14
14
        while (<IN>)
15
15
                {
16
 
                if (/^[a-zA-Z].+[\s*]([A-Za-z_0-9]+)\(.*\)/)
 
16
                if (!/;$/ && /^([a-zA-Z].*[\s*])?([A-Za-z_0-9]+)\(.*[),]/)
17
17
                        {
18
 
                        $func=$1;
 
18
                        /^([^()]*(\([^()]*\)[^()]*)*)\(/;
 
19
                        $1 =~ /([A-Za-z_0-9]*)$/;
 
20
                        $func = $1;
19
21
                        $func =~ tr/A-Z/a-z/;
20
22
                        }
21
23
                if (/([A-Z0-9]+)err\(([^,]+)/)
22
24
                        {
23
 
                        next if ($func eq "");
24
25
                        $errlib=$1;
25
26
                        $n=$2;
 
27
 
 
28
                        if ($func eq "")
 
29
                                { print "$file:$.:???:$n\n"; next; }
 
30
 
26
31
                        if ($n !~ /([^_]+)_F_(.+)$/)
27
32
                                {
28
33
                #               print "check -$file:$.:$func:$n\n";
32
37
                        $n=$2;
33
38
 
34
39
                        if ($lib ne $errlib)
35
 
                                { print "$file:$.:$func:$n\n"; next; }
 
40
                                { print "$file:$.:$func:$n [${errlib}err]\n"; next; }
36
41
 
37
42
                        $n =~ tr/A-Z/a-z/;
38
43
                        if (($n ne $func) && ($errlib ne "SYS"))