home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / vile-src.zip / vile-8.1 / perl / visit.pl < prev   
Text File  |  1998-04-09  |  246b  |  16 lines
  1. sub visit {
  2.     my ($fname, @dot) = @_;
  3.  
  4.     die "visit: No filename!"        if !defined($fname);
  5.  
  6.     my $visbuf = Vile::Buffer->edit($fname);
  7.  
  8.     $visbuf->dot(@dot)            if (@dot == 1) || (@dot == 2);
  9.  
  10.     Vile->current_buffer($visbuf);
  11.  
  12.     1;
  13. }
  14.  
  15. 1;
  16.