From 1001cbba7b16ccc4611bbee0474264bb551d1ea5 Mon Sep 17 00:00:00 2001 From: Frédéric Buclin Date: Sat, 1 Sep 2012 23:43:00 +0200 Subject: Bug 787529: Use |use 5.10.1| everywhere r=wicked a=LpSolit --- attachment.cgi | 13 +------------ 1 file changed, 1 insertion(+), 12 deletions(-) (limited to 'attachment.cgi') diff --git a/attachment.cgi b/attachment.cgi index e696c95a7..775a91f00 100755 --- a/attachment.cgi +++ b/attachment.cgi @@ -6,13 +6,8 @@ # This Source Code Form is "Incompatible With Secondary Licenses", as # defined by the Mozilla Public License, v. 2.0. -################################################################################ -# Script Initialization -################################################################################ - -# Make it harder for us to do dangerous things in Perl. +use 5.10.1; use strict; - use lib qw(. lib); use Bugzilla; @@ -24,11 +19,9 @@ use Bugzilla::FlagType; use Bugzilla::User; use Bugzilla::Util; use Bugzilla::Bug; -use Bugzilla::Field; use Bugzilla::Attachment; use Bugzilla::Attachment::PatchReader; use Bugzilla::Token; -use Bugzilla::Keyword; use Encode qw(encode find_encoding); @@ -40,10 +33,6 @@ local our $cgi = Bugzilla->cgi; local our $template = Bugzilla->template; local our $vars = {}; -################################################################################ -# Main Body Execution -################################################################################ - # All calls to this script should contain an "action" variable whose # value determines what the user wants to do. The code below checks # the value of that variable and runs the appropriate code. If none is -- cgit v1.2.3-65-gdbad