home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / xampp / xampp-perl-addon-1.4.9-installer.exe / isEqual.al < prev    next >
Encoding:
Text File  |  2002-11-06  |  749 b   |  32 lines
  1. # NOTE: Derived from ..\blib\lib\CGI\XMLForm\Path.pm.
  2. # Changes made here will be lost when autosplit is run again.
  3. # See AutoSplit.pm.
  4. package CGI::XMLForm::Path;
  5.  
  6. #line 125 "..\blib\lib\CGI\XMLForm\Path.pm (autosplit into ..\blib\lib\auto\CGI\XMLForm\Path\isEqual.al)"
  7. sub isEqual {
  8.     my $self = shift;
  9.     my $compare = shift;
  10.  
  11.     my @a = @{$self->{_fullpath}};
  12.     my @b = @{$compare->{_fullpath}};
  13.  
  14. #    warn "Comparing: ", $self->FullPath, "\nTo      : ", $compare->FullPath,
  15. #    "\n";
  16.     if (scalar @a != scalar @b) {
  17.         return 0;
  18.     }
  19.     foreach (0..$#a) {
  20.         $a[$_] =~ s/\[.*\]//;
  21.         $b[$_] =~ s/\[.*\]//;
  22.         if ($a[$_] ne $b[$_]) {
  23.             return 0;
  24.         }
  25.     }
  26. #    warn "*** FOUND ***\n";
  27.     return 1;
  28. }
  29.  
  30. # end of CGI::XMLForm::Path::isEqual
  31. 1;
  32.