Re: Troubles with perl script in Vim

On Fri, Apr 11, 2014, at 04:53 AM, Егор wrote:
> Trying to set to status line current subname, using this manual
> http://blogs.perl.org/users/ovid/2011/01/show-perl-subname-in-vim-statusline.html
> First problem - when I put it on my vimrc I get error on vim start
> line 11:
> E126: Missing :endfunction
> my vimrc is empty, I put there only script from manual page. If I don't
> use <<EOP ... EOP got no errors. So I put so
>
> function! WhitePearl()
> perl 'use strict; sub current_sub {my $curwin = $main::curwin; my
> $curbuf = $main::curbuf; my @document = map { $curbuf->Get($_) } 0 ..
> $curbuf->Count; my ( $line_number, $column ) = $curwin->Cursor; my
> $sub_name = \'(not in sub)\'; for my $i ( reverse ( 1 .. $line
> _number -1 ) ) {my $line = $document[$i]; if ( $line =~
> /^\s*sub\s+(\w+)\b/ ) { $sub_name = $1; last; }} VIM::DoCommand "let
> subName=\'$line_number: $sub_name\'"; }; '
> endfunction
> call WhitePearl()
>
> After this if i try to output variable subName vim prints Undefined
> variable. Help me_)

Just calling WhitePearl() will only define the subroutine current_sub().
Are you also calling "perl current_sub()" somewhere? You don't show
that here, but the blog post you referred to calls it from
StatusLineIndexLine() and that is where subName actually gets defined.

Dan

--
--
You received this message from the "vim_use" maillist.
Do not top-post! Type your reply below the text you are replying to.
For more information, visit http://www.vim.org/maillist.php

---
You received this message because you are subscribed to the Google Groups "vim_use" group.
To unsubscribe from this group and stop receiving emails from it, send an email to vim_use+unsubscribe@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.