perl debugger/Speare/dbutil.pm

   1 #!/usr/bin/perl
   2
   3 # A generic Perl debugger for Speare Pro.
   4 # Copyright (c) 2019 sevenuc.com. All rights reserved.
   5 #
   6 # THIS FILE IS PART OF THE ADVANCED VERSION OF SPEARE CODE EDITOR.
   7 # WITHOUT THE WRITTEN PERMISSION OF THE AUTHOR THIS FILE MAY NOT
   8 # BE USED FOR ANY COMMERCIAL PRODUCT.
   9 #
  10 # More info:
  11 #    http://sevenuc.com/en/Speare.html
  12 # Contact:
  13 #    Sevenuc support <info@sevenuc.com>
  14 # Issue report and requests pull:
  15 #    https://github.com/chengdu/Speare
  16
  17 package dbutil;
  18
  19 #use File::Basename;
  20
  21 use vars qw(
  22    $workdir
  23    $perlsys
  24    $perlsysdir
  25 );
  26
  27 sub isexludedpath{
  28   my $f = shift;
  29
  30   if ($f eq "perl5db.pl" or $f eq $workdir.. "/perl5db.pl") {
  31     return 1;
  32   }
  33
  34 #  my $dirname = dirname($f);
  35 #  foreach my $dir ($perlsys, $perlsysdir, $workdir){
  36 #      if ($dir =~ m/^$dirname/){
  37 #        return 1;
  38 #      }
  39 #  }
  40
  41   # e.g. (eval 8)[/System/Library/Perl
  42   if ($f =~ m/^\(eval\s(\d+)\)\[/){
  43     return 1;
  44   }
  45
  46   return 0;
  47 }
  48
  49 1;
  50