You are viewing a plain text version of this content. The canonical link for it is here.
Posted to axkit-dev@xml.apache.org by ma...@apache.org on 2003/02/04 18:36:55 UTC
cvs commit: xml-axkit/lib/Apache/AxKit/Language/XSP TaglibHelper.pm
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;
}