View | Details | Raw Unified | Return to bug 20019
Collapse All | Expand All

(-)a/changelanguage.pl (-2 / +1 lines)
Lines 15-22 Link Here
15
# You should have received a copy of the GNU General Public License
15
# You should have received a copy of the GNU General Public License
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
17
18
use strict;
18
use Modern::Perl;
19
use warnings;
20
19
21
use C4::Templates;
20
use C4::Templates;
22
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
(-)a/debian/bd-to-depends (-2 / +1 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use strict;
3
use Modern::Perl;
4
use warnings;
5
4
6
my @exclusions = (
5
my @exclusions = (
7
    'debhelper',
6
    'debhelper',
(-)a/debian/build-git-snapshot (-2 / +1 lines)
Lines 21-28 Link Here
21
#   Srdjan Jankovic <srdjan@catalyst.net.nz>
21
#   Srdjan Jankovic <srdjan@catalyst.net.nz>
22
# Based on an sh version by Lars Wirzenius.
22
# Based on an sh version by Lars Wirzenius.
23
23
24
use strict;
24
use Modern::Perl;
25
use warnings;
26
25
27
use Getopt::Long;
26
use Getopt::Long;
28
use POSIX qw/strftime/;
27
use POSIX qw/strftime/;
(-)a/debian/list-deps (-2 / +1 lines)
Lines 17-24 Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
18
# along with this program.  If not, see <http://www.gnu.org/licenses/>.
18
# along with this program.  If not, see <http://www.gnu.org/licenses/>.
19
19
20
use strict;
20
use Modern::Perl;
21
use warnings;
22
21
23
use C4::Installer::PerlDependencies;
22
use C4::Installer::PerlDependencies;
24
23
(-)a/docs/CAS/CASProxy/examples/koha_webservice.pl (-2 / +1 lines)
Lines 32-39 The Proxy Ticket, needed for check_api_auth, that will try to make the CAS Serve Link Here
32
=cut 
32
=cut 
33
33
34
use utf8;
34
use utf8;
35
use strict;
35
use Modern::Perl;
36
use warnings;
37
binmode(STDOUT, ":utf8");
36
binmode(STDOUT, ":utf8");
38
37
39
use C4::Auth qw(check_api_auth);
38
use C4::Auth qw(check_api_auth);
(-)a/docs/CAS/CASProxy/examples/proxy_cas.pl (-2 / +1 lines)
Lines 28-35 Link Here
28
28
29
=cut
29
=cut
30
30
31
use strict;
31
use Modern::Perl;
32
use warnings;
33
use CGI qw ( -utf8 );
32
use CGI qw ( -utf8 );
34
use Authen::CAS::Client;
33
use Authen::CAS::Client;
35
34
(-)a/docs/CAS/CASProxy/examples/proxy_cas_callback.pl (-2 / +1 lines)
Lines 25-32 Link Here
25
25
26
=cut
26
=cut
27
27
28
use strict;
28
use Modern::Perl;
29
use warnings;
30
use CGI qw ( -utf8 );
29
use CGI qw ( -utf8 );
31
use Authen::CAS::Client;
30
use Authen::CAS::Client;
32
use Storable qw(nstore_fd);
31
use Storable qw(nstore_fd);
(-)a/docs/CAS/CASProxy/examples/proxy_cas_data.pl (-2 / +1 lines)
Lines 30-37 This PGTIOU will allow us to retrive the matching PGTID Link Here
30
30
31
=cut 
31
=cut 
32
32
33
use strict;
33
use Modern::Perl;
34
use warnings;
35
use CGI qw ( -utf8 );
34
use CGI qw ( -utf8 );
36
use Authen::CAS::Client;
35
use Authen::CAS::Client;
37
use Storable qw(fd_retrieve);
36
use Storable qw(fd_retrieve);
(-)a/help.pl (-2 / +1 lines)
Lines 17-24 Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use strict;
20
use Modern::Perl;
21
use warnings;
22
use C4::Templates;
21
use C4::Templates;
23
use C4::Output;
22
use C4::Output;
24
# use C4::Auth;
23
# use C4::Auth;
(-)a/koha_perl_deps.pl (-2 / +1 lines)
Lines 9-16 use lib $FindBin::Bin; Link Here
9
9
10
use C4::Installer::PerlModules;
10
use C4::Installer::PerlModules;
11
11
12
use strict;
12
use Modern::Perl;
13
use warnings;
14
13
15
my $help = 0;
14
my $help = 0;
16
my $missing = 0;
15
my $missing = 0;
(-)a/services/itemrecorddisplay.pl (-2 / +1 lines)
Lines 27-34 It uses PrepareItemrecordDisplay Link Here
27
27
28
=cut
28
=cut
29
29
30
use strict;
30
use Modern::Perl;
31
use warnings;
32
31
33
use CGI qw ( -utf8 );
32
use CGI qw ( -utf8 );
34
use C4::Auth;
33
use C4::Auth;
(-)a/suggestion/suggestion.pl (-2 / +1 lines)
Lines 17-24 Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use strict;
20
use Modern::Perl;
21
#use warnings; FIXME - Bug 2505
22
require Exporter;
21
require Exporter;
23
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
24
use C4::Auth;    # get_template_and_user
23
use C4::Auth;    # get_template_and_user
(-)a/tags/list.pl (-2 / +1 lines)
Lines 17-24 Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use warnings;
20
use Modern::Perl;
21
use strict;
22
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
23
22
24
use C4::Auth qw(:DEFAULT check_cookie_auth);
23
use C4::Auth qw(:DEFAULT check_cookie_auth);
(-)a/tags/review.pl (-2 / +1 lines)
Lines 19-26 Link Here
19
# You should have received a copy of the GNU General Public License
19
# You should have received a copy of the GNU General Public License
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
21
21
22
use warnings;
22
use Modern::Perl;
23
use strict;
24
use Data::Dumper;
23
use Data::Dumper;
25
use POSIX;
24
use POSIX;
26
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
(-)a/virtualshelves/sendshelf.pl (-3 / +1 lines)
Lines 17-24 Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use strict;
20
use Modern::Perl;
21
use warnings;
22
21
23
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
24
use Encode qw( encode );
23
use Encode qw( encode );
25
- 

Return to bug 20019