Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
openSUSE:Backports:SLE-15-SP3
tinyca2
0004-fix-perl-deprecation-defined.diff
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File 0004-fix-perl-deprecation-defined.diff of Package tinyca2
diff -uNr tinyca2-0.7.5/lib/GUI.pm new_tinyca2-0.7.5/lib/GUI.pm --- tinyca2-0.7.5/lib/GUI.pm 2018-09-27 16:30:17.177356172 +0200 +++ new_tinyca2-0.7.5/lib/GUI.pm 2018-09-27 16:27:03.351066267 +0200 @@ -1249,7 +1249,7 @@ # table for request data my $cc=0; my $ous = 1; - if(defined($opts->{'OU'}) and defined @{$opts->{'OU'}}) { + if(defined($opts->{'OU'}) and (@{$opts->{'OU'}})) { $ous = @{$opts->{'OU'}} - 1; } $reqtable = Gtk2::Table->new(1, 13 + $ous, 0); @@ -1297,7 +1297,7 @@ _("Organization Name (eg. company):"), \$opts->{'O'}, $reqtable, 10, 1); - if(defined($opts->{'OU'}) and defined @{$opts->{'OU'}}) { + if(defined($opts->{'OU'}) and (@{$opts->{'OU'}})) { foreach my $ou (@{$opts->{'OU'}}) { $entry = GUI::HELPERS::entry_to_table( _("Organizational Unit Name (eg. section):"),
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor
