diff options
author | Nikos Mavrogiannopoulos <nmav@gnutls.org> | 2011-10-13 17:30:08 +0200 |
---|---|---|
committer | Nikos Mavrogiannopoulos <nmav@gnutls.org> | 2011-10-13 17:30:34 +0200 |
commit | d0c67b24c809cd401febb2695c9173eca1e01572 (patch) | |
tree | 6c1d2517946a808a2bdc986fd66257ea459e83e0 /doc/scripts/split-texi.pl | |
parent | 85945e245f6582fdbba2c5813c71c2d014b51420 (diff) | |
download | gnutls-d0c67b24c809cd401febb2695c9173eca1e01572.tar.gz |
'How to use TLS in application protocols' section was moved to introduction to TLS.
Fixes in perl.
Diffstat (limited to 'doc/scripts/split-texi.pl')
-rwxr-xr-x | doc/scripts/split-texi.pl | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/doc/scripts/split-texi.pl b/doc/scripts/split-texi.pl index bd6e11e1c2..a7ee518192 100755 --- a/doc/scripts/split-texi.pl +++ b/doc/scripts/split-texi.pl @@ -1,4 +1,6 @@ -#!/usr/bin/perl +eval '(exit $?0)' && eval 'exec perl -wS "$0" ${1+"$@"}' + & eval 'exec perl -wS "$0" $argv:q' + if 0; $dir = shift; $param2 = shift; @@ -19,9 +21,9 @@ sub key_of_record { my ($key) = $lines[$i]; if ($enum == 1) { - while( !($key =~ m/^$\@float Table,(.*)$/) && ($i < 5)) { $i=$i+1; $key = $lines[$i]; } + while( !($key =~ m/^\@float Table,(.*)$/) && ($i < 5)) { $i=$i+1; $key = $lines[$i]; } } else { - while( !($key =~ m/^$\\functionTitle\{(.*)\}/) && ($i < 5)) { $i=$i+1; $key = $lines[$i]; } + while( !($key =~ m/^\\functionTitle\{(.*)\}/) && ($i < 5)) { $i=$i+1; $key = $lines[$i]; } } return $key; |