Warning: chmod(): Operation not permitted in /var/www/hopeinstoughton_www/wp-content/plugins/simple-universal-google-analytics/main.php on line 8
[0] in function chmod in /var/www/hopeinstoughton_www/wp-content/plugins/simple-universal-google-analytics/main.php on line 8
[1] in function include_once in /var/www/hopeinstoughton_www/wp-settings.php on line 560
[2] in function require_once in /var/www/hopeinstoughton_www/wp-config.php on line 85
[3] in function require_once in /var/www/hopeinstoughton_www/wp-load.php on line 50
[4] in function require_once in /var/www/hopeinstoughton_www/wp-blog-header.php on line 13
[5] in function require in /var/www/hopeinstoughton_www/index.php on line 17

#!/usr/bin/perl
# 18.6.1998, Sampo Kellomaki <sampo@iki.fi>
# Tool used to sync SSLeay.xs with ssl.h. Prints what .h has that .xs doesn't.
# Usage: examples/ssl_diff.pl *pat* SSLeay.xs /usr/local/ssl/include/ssl.h
# E.g:   examples/ssl_diff.pl SSL_CTX_ SSLeay.xs /usr/local/ssl/include/ssl.h

($pat, $xs, $h) = @ARGV;

open XS, $xs or die "Cant open .xs `$xs' ($!)\n";
foreach $_ (<XS>) {
    next unless ($name) = /^($pat.*?)\(/o;
    $xs{$name} = 1;
}
close XS;

open H, $h or die "Cant open .h `$h' ($!)\n";
foreach $_ (<H>) {
    next unless ($name) = /($pat.*?)\(/o;
    print "$name\n" unless $xs{$name};
}
close H;

__END__