diff options
Diffstat (limited to 'Master/perltl/site/lib/auto/Tk/lsearch.al')
-rw-r--r-- | Master/perltl/site/lib/auto/Tk/lsearch.al | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/Master/perltl/site/lib/auto/Tk/lsearch.al b/Master/perltl/site/lib/auto/Tk/lsearch.al new file mode 100644 index 00000000000..7a597051bec --- /dev/null +++ b/Master/perltl/site/lib/auto/Tk/lsearch.al @@ -0,0 +1,19 @@ +# NOTE: Derived from blib\lib\Tk.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Tk; + +#line 683 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\lsearch.al)" +sub lsearch +{my $ar = shift; + my $x = shift; + my $i; + for ($i = 0; $i < scalar @$ar; $i++) + { + return $i if ($$ar[$i] eq $x); + } + return -1; +} + +1; +# end of Tk::lsearch |