| 1 |
diff -Nur perl-CGI-FormMagick-0.93.old/lib/CGI/FormMagick/TagMaker.pm perl-CGI-FormMagick-0.93/lib/CGI/FormMagick/TagMaker.pm |
| 2 |
--- perl-CGI-FormMagick-0.93.old/lib/CGI/FormMagick/TagMaker.pm 2005-10-31 12:24:02.000000000 -0500 |
| 3 |
+++ perl-CGI-FormMagick-0.93/lib/CGI/FormMagick/TagMaker.pm 2017-04-05 11:04:34.084000000 -0400 |
| 4 |
@@ -189,7 +189,7 @@ |
| 5 |
my $called_sub_name = $1; |
| 6 |
|
| 7 |
my ($tag_name, $what_to_make) = split( '_', $called_sub_name, 2 ); |
| 8 |
- unless( lc($what_to_make) =~ |
| 9 |
+ unless( lc($what_to_make||'') =~ |
| 10 |
/^($TAG_GROUP|$TAG_PAIR|$TAG_START|$TAG_END)$/ ) { |
| 11 |
if( $self->{$KEY_AUTO_GROUP} ) { |
| 12 |
$what_to_make = $TAG_GROUP; |
| 13 |
@@ -203,7 +203,7 @@ |
| 14 |
my $ra_text = delete( $rh_params->{$PARAM_TEXT} ); |
| 15 |
my $force_list = delete( $rh_params->{$PARAM_LIST} ); |
| 16 |
|
| 17 |
- if( lc($what_to_make) eq $TAG_GROUP ) { |
| 18 |
+ if( lc($what_to_make||'') eq $TAG_GROUP ) { |
| 19 |
return( $self->make_html_tag_group( |
| 20 |
$tag_name, $rh_params, $ra_text, $force_list ) ); |
| 21 |
} |
| 22 |
@@ -311,7 +311,7 @@ |
| 23 |
sub make_html_tag { |
| 24 |
my ($self, $tag_name, $rh_params, $text, $what_to_make) = @_; |
| 25 |
$tag_name = lc($tag_name); |
| 26 |
- $what_to_make = lc($what_to_make); |
| 27 |
+ $what_to_make = lc($what_to_make||''); |
| 28 |
$text = defined($text) ? $text : ''; |
| 29 |
|
| 30 |
my %tag_params = map { ( lc($_) => $rh_params->{$_} ) } |
Parent Directory
| 
Revision Log
| 
Revision Graph
