| 1 |
diff -Nur smeserver-wbl-0.3.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/wbl.pm smeserver-wbl-0.3.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/wbl.pm |
| 2 |
--- smeserver-wbl-0.3.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/wbl.pm 2017-05-10 22:53:55.115000000 -0400 |
| 3 |
+++ smeserver-wbl-0.3.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/wbl.pm 2017-05-10 23:02:47.748000000 -0400 |
| 4 |
@@ -376,7 +376,7 @@ |
| 5 |
|
| 6 |
|
| 7 |
my $sbllistcgi = $q->param('sbllist'); |
| 8 |
- my @sbllistcgi = split /\s+/, $sbllistcgi; |
| 9 |
+ my @sbllistcgi = split /\s{2,}/, $sbllistcgi; |
| 10 |
my $sbllistdb = ''; |
| 11 |
foreach (@sbllistcgi) { $sbllistdb = $sbllistdb . ',' . $_; } |
| 12 |
$sbllistdb =~ s/^,//; |
| 13 |
@@ -385,7 +385,7 @@ |
| 14 |
|
| 15 |
|
| 16 |
my $rbllistcgi = $q->param('rbllist'); |
| 17 |
- my @rbllistcgi = split /\s+/, $rbllistcgi; |
| 18 |
+ my @rbllistcgi = split /\s{2,}/, $rbllistcgi; |
| 19 |
my $rbllistdb = ''; |
| 20 |
foreach (@rbllistcgi) { $rbllistdb = $rbllistdb . ',' . $_; } |
| 21 |
$rbllistdb =~ s/^,//; |
Parent Directory
| 
Revision Log
| 
Revision Graph
