cvs commit: xml-axkit/lib/Apache/AxKit/Language/XSP TaglibHelper.pm

[matts]

matts       2003/02/04 09:36:55

  Modified:    lib/Apache/AxKit/Language XSP.pm
               lib/Apache/AxKit/Language/XSP TaglibHelper.pm
  Log:
  Clean up a couple of warnings
  
  Revision  Changes    Path
  1.35      +2 -2      xml-axkit/lib/Apache/AxKit/Language/XSP.pm
  
  Index: XSP.pm
  ===================================================================
  RCS file: /home/cvs/xml-axkit/lib/Apache/AxKit/Language/XSP.pm,v
  retrieving revision 1.34
  retrieving revision 1.35
  diff -u -r1.34 -r1.35
  --- XSP.pm    2 Feb 2003 13:08:23 -0000       1.34
  +++ XSP.pm    4 Feb 2003 17:36:54 -0000       1.35
  @@ -226,7 +226,7 @@
          $package->register();
       }
       
  -    return 1 if $Apache::AxKit::Language::XSP::tag_lib{$ns};
  +    return 1 if $ns && $Apache::AxKit::Language::XSP::tag_lib{$ns};
   }
   
   sub get_package_name {
  
  
  
  1.5       +7 -5      xml-axkit/lib/Apache/AxKit/Language/XSP/TaglibHelper.pm
  
  Index: TaglibHelper.pm
  ===================================================================
  RCS file: /home/cvs/xml-axkit/lib/Apache/AxKit/Language/XSP/TaglibHelper.pm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- TaglibHelper.pm   15 Apr 2002 16:04:50 -0000      1.4
  +++ TaglibHelper.pm   4 Feb 2003 17:36:55 -0000       1.5
  @@ -75,10 +75,12 @@
   
       my ($argspec) = ($funspec =~ /; *([^\)]*)/);
       my @retval;
  -    foreach my $arg(split (/,/, $argspec)) {
  -        $arg =~ s/^\s*//g;
  -        $arg =~ s/\s*$//g;
  -        push (@retval, $arg);
  +    if ($argspec) {
  +       foreach my $arg (split (/,/, $argspec)) {
  +           $arg =~ s/^\s*//g;
  +           $arg =~ s/\s*$//g;
  +           push (@retval, $arg);
  +       }
       }
       return @retval;
   }