Committer: ailyin
LJSUP-8865 (ensure that modules in cgi-bin use strict)U trunk/cgi-bin/LJ/CProd/AdPlacementFree.pm U trunk/cgi-bin/LJ/CProd/AdPlacementPaid.pm U trunk/cgi-bin/LJ/CProd/AdsBetweenPostsPlus.pm U trunk/cgi-bin/LJ/CProd/ControlStrip_Activated.pm U trunk/cgi-bin/LJ/CProd/ControlStrip_AdPlacement.pm U trunk/cgi-bin/LJ/CProd/ControlStrip_AdPlacementPlus.pm U trunk/cgi-bin/LJ/CProd/ControlStrip_SPlus.pm U trunk/cgi-bin/LJ/CProd/EditStyles.pm U trunk/cgi-bin/LJ/CProd/Horizon.pm U trunk/cgi-bin/LJ/CProd/Interests.pm U trunk/cgi-bin/LJ/CProd/LJSpotlight.pm U trunk/cgi-bin/LJ/CProd/LJTalk.pm U trunk/cgi-bin/LJ/CProd/Links.pm U trunk/cgi-bin/LJ/CProd/News.pm U trunk/cgi-bin/LJ/CProd/TextMessaging.pm U trunk/cgi-bin/LJ/CProd/TodoNonPublic.pm U trunk/cgi-bin/LJ/Worker/UserManage/ClusterMassMove.pm U trunk/cgi-bin/LJ/Worker/UserManage/UserClusterPurge.pm U trunk/cgi-bin/crumbs-local.pl U trunk/cgi-bin/ljcom.pl U trunk/cgi-bin/ljlib-local.pl U trunk/cgi-bin/paylib.pl
Modified: trunk/cgi-bin/LJ/CProd/AdPlacementFree.pm =================================================================== --- trunk/cgi-bin/LJ/CProd/AdPlacementFree.pm 2011-05-24 04:07:09 UTC (rev 10553) +++ trunk/cgi-bin/LJ/CProd/AdPlacementFree.pm 2011-05-24 04:09:17 UTC (rev 10554) @@ -1,4 +1,6 @@ package LJ::CProd::AdPlacementFree; +use strict; + use base 'LJ::CProd'; sub applicable { Modified: trunk/cgi-bin/LJ/CProd/AdPlacementPaid.pm =================================================================== --- trunk/cgi-bin/LJ/CProd/AdPlacementPaid.pm 2011-05-24 04:07:09 UTC (rev 10553) +++ trunk/cgi-bin/LJ/CProd/AdPlacementPaid.pm 2011-05-24 04:09:17 UTC (rev 10554) @@ -1,4 +1,6 @@ package LJ::CProd::AdPlacementPaid; +use strict; + use base 'LJ::CProd'; sub applicable { Modified: trunk/cgi-bin/LJ/CProd/AdsBetweenPostsPlus.pm =================================================================== --- trunk/cgi-bin/LJ/CProd/AdsBetweenPostsPlus.pm 2011-05-24 04:07:09 UTC (rev 10553) +++ trunk/cgi-bin/LJ/CProd/AdsBetweenPostsPlus.pm 2011-05-24 04:09:17 UTC (rev 10554) @@ -1,4 +1,6 @@ package LJ::CProd::AdsBetweenPostsPlus; +use strict; + use base 'LJ::CProd'; sub applicable { Modified: trunk/cgi-bin/LJ/CProd/ControlStrip_Activated.pm =================================================================== --- trunk/cgi-bin/LJ/CProd/ControlStrip_Activated.pm 2011-05-24 04:07:09 UTC (rev 10553) +++ trunk/cgi-bin/LJ/CProd/ControlStrip_Activated.pm 2011-05-24 04:09:17 UTC (rev 10554) @@ -1,6 +1,9 @@ +package LJ::CProd::ControlStrip_Activated; +use strict; + # This CProd is to be embedded in the control strip # when it is newly activated for existing users. -package LJ::CProd::ControlStrip_Activated; + use base 'LJ::CProd'; # Inline only! Modified: trunk/cgi-bin/LJ/CProd/ControlStrip_AdPlacement.pm =================================================================== --- trunk/cgi-bin/LJ/CProd/ControlStrip_AdPlacement.pm 2011-05-24 04:07:09 UTC (rev 10553) +++ trunk/cgi-bin/LJ/CProd/ControlStrip_AdPlacement.pm 2011-05-24 04:09:17 UTC (rev 10554) @@ -1,5 +1,8 @@ +package LJ::CProd::ControlStrip_AdPlacementFree; +use strict; + # Control strip CProd for polls -package LJ::CProd::ControlStrip_AdPlacementFree; + use base 'LJ::CProd'; # Inline only! Modified: trunk/cgi-bin/LJ/CProd/ControlStrip_AdPlacementPlus.pm =================================================================== --- trunk/cgi-bin/LJ/CProd/ControlStrip_AdPlacementPlus.pm 2011-05-24 04:07:09 UTC (rev 10553) +++ trunk/cgi-bin/LJ/CProd/ControlStrip_AdPlacementPlus.pm 2011-05-24 04:09:17 UTC (rev 10554) @@ -1,5 +1,8 @@ +package LJ::CProd::ControlStrip_AdPlacementPlus; +use strict; + # Control strip CProd for polls -package LJ::CProd::ControlStrip_AdPlacementPlus; + use base 'LJ::CProd'; # Inline only! Modified: trunk/cgi-bin/LJ/CProd/ControlStrip_SPlus.pm =================================================================== --- trunk/cgi-bin/LJ/CProd/ControlStrip_SPlus.pm 2011-05-24 04:07:09 UTC (rev 10553) +++ trunk/cgi-bin/LJ/CProd/ControlStrip_SPlus.pm 2011-05-24 04:09:17 UTC (rev 10554) @@ -1,5 +1,8 @@ +package LJ::CProd::ControlStrip_SPlus; +use strict; + # This is the splus control strip cprod -package LJ::CProd::ControlStrip_SPlus; + use base 'LJ::CProd'; # Inline only! Modified: trunk/cgi-bin/LJ/CProd/EditStyles.pm =================================================================== --- trunk/cgi-bin/LJ/CProd/EditStyles.pm 2011-05-24 04:07:09 UTC (rev 10553) +++ trunk/cgi-bin/LJ/CProd/EditStyles.pm 2011-05-24 04:09:17 UTC (rev 10554) @@ -1,4 +1,6 @@ package LJ::CProd::EditStyles; +use strict; + use base 'LJ::CProd'; sub applicable { Modified: trunk/cgi-bin/LJ/CProd/Horizon.pm =================================================================== --- trunk/cgi-bin/LJ/CProd/Horizon.pm 2011-05-24 04:07:09 UTC (rev 10553) +++ trunk/cgi-bin/LJ/CProd/Horizon.pm 2011-05-24 04:09:17 UTC (rev 10554) @@ -1,4 +1,6 @@ package LJ::CProd::Horizon; +use strict; + use base 'LJ::CProd'; sub applicable { Modified: trunk/cgi-bin/LJ/CProd/Interests.pm =================================================================== --- trunk/cgi-bin/LJ/CProd/Interests.pm 2011-05-24 04:07:09 UTC (rev 10553) +++ trunk/cgi-bin/LJ/CProd/Interests.pm 2011-05-24 04:09:17 UTC (rev 10554) @@ -1,7 +1,8 @@ package LJ::CProd::Interests; -use base 'LJ::CProd'; use strict; +use base 'LJ::CProd'; + sub applicable { my ($class, $u) = @_; my $intcount = 0; Modified: trunk/cgi-bin/LJ/CProd/LJSpotlight.pm =================================================================== --- trunk/cgi-bin/LJ/CProd/LJSpotlight.pm 2011-05-24 04:07:09 UTC (rev 10553) +++ trunk/cgi-bin/LJ/CProd/LJSpotlight.pm 2011-05-24 04:09:17 UTC (rev 10554) @@ -1,4 +1,6 @@ package LJ::CProd::LJSpotlight; +use strict; + use base 'LJ::CProd'; sub applicable { Modified: trunk/cgi-bin/LJ/CProd/LJTalk.pm =================================================================== --- trunk/cgi-bin/LJ/CProd/LJTalk.pm 2011-05-24 04:07:09 UTC (rev 10553) +++ trunk/cgi-bin/LJ/CProd/LJTalk.pm 2011-05-24 04:09:17 UTC (rev 10554) @@ -1,7 +1,8 @@ package LJ::CProd::LJTalk; -use base 'LJ::CProd'; use strict; +use base 'LJ::CProd'; + sub applicable { my ($class, $u) = @_; return 0 unless $u; Modified: trunk/cgi-bin/LJ/CProd/Links.pm =================================================================== --- trunk/cgi-bin/LJ/CProd/Links.pm 2011-05-24 04:07:09 UTC (rev 10553) +++ trunk/cgi-bin/LJ/CProd/Links.pm 2011-05-24 04:09:17 UTC (rev 10554) @@ -1,4 +1,6 @@ package LJ::CProd::Links; +use strict; + use base 'LJ::CProd'; sub applicable { Modified: trunk/cgi-bin/LJ/CProd/News.pm =================================================================== --- trunk/cgi-bin/LJ/CProd/News.pm 2011-05-24 04:07:09 UTC (rev 10553) +++ trunk/cgi-bin/LJ/CProd/News.pm 2011-05-24 04:09:17 UTC (rev 10554) @@ -1,4 +1,6 @@ package LJ::CProd::News; +use strict; + use base 'LJ::CProd'; sub applicable { Modified: trunk/cgi-bin/LJ/CProd/TextMessaging.pm =================================================================== --- trunk/cgi-bin/LJ/CProd/TextMessaging.pm 2011-05-24 04:07:09 UTC (rev 10553) +++ trunk/cgi-bin/LJ/CProd/TextMessaging.pm 2011-05-24 04:09:17 UTC (rev 10554) @@ -1,4 +1,6 @@ package LJ::CProd::TextMessaging; +use strict; + use base 'LJ::CProd'; sub applicable { Modified: trunk/cgi-bin/LJ/CProd/TodoNonPublic.pm =================================================================== --- trunk/cgi-bin/LJ/CProd/TodoNonPublic.pm 2011-05-24 04:07:09 UTC (rev 10553) +++ trunk/cgi-bin/LJ/CProd/TodoNonPublic.pm 2011-05-24 04:09:17 UTC (rev 10554) @@ -1,4 +1,6 @@ package LJ::CProd::TodoNonPublic; +use strict; + use base 'LJ::CProd'; sub applicable { Modified: trunk/cgi-bin/LJ/Worker/UserManage/ClusterMassMove.pm =================================================================== --- trunk/cgi-bin/LJ/Worker/UserManage/ClusterMassMove.pm 2011-05-24 04:07:09 UTC (rev 10553) +++ trunk/cgi-bin/LJ/Worker/UserManage/ClusterMassMove.pm 2011-05-24 04:09:17 UTC (rev 10554) @@ -1,4 +1,5 @@ package LJ::Worker::UserManage::ClusterMassMove; +use strict; use base 'LJ::Worker::UserManage'; Modified: trunk/cgi-bin/LJ/Worker/UserManage/UserClusterPurge.pm =================================================================== --- trunk/cgi-bin/LJ/Worker/UserManage/UserClusterPurge.pm 2011-05-24 04:07:09 UTC (rev 10553) +++ trunk/cgi-bin/LJ/Worker/UserManage/UserClusterPurge.pm 2011-05-24 04:09:17 UTC (rev 10554) @@ -1,4 +1,5 @@ package LJ::Worker::UserManage::UserClusterPurge; +use strict; use base 'LJ::Worker::UserManage::UserClusterDelete'; Modified: trunk/cgi-bin/crumbs-local.pl =================================================================== --- trunk/cgi-bin/crumbs-local.pl 2011-05-24 04:07:09 UTC (rev 10553) +++ trunk/cgi-bin/crumbs-local.pl 2011-05-24 04:09:17 UTC (rev 10554) @@ -1,5 +1,6 @@ -#!/usr/bin/perl -# +package LJ; +use strict; + # Stores all local crumbs and adds to the crumbs hash Modified: trunk/cgi-bin/ljcom.pl =================================================================== --- trunk/cgi-bin/ljcom.pl 2011-05-24 04:07:09 UTC (rev 10553) +++ trunk/cgi-bin/ljcom.pl 2011-05-24 04:09:17 UTC (rev 10554) @@ -1,5 +1,6 @@ -#!/usr/bin/perl -# +package LJ::LJcom; +use strict; + # LiveJournal.com-specific library # # This file is NOT licensed under the GPL. As with everything in the Modified: trunk/cgi-bin/ljlib-local.pl =================================================================== --- trunk/cgi-bin/ljlib-local.pl 2011-05-24 04:07:09 UTC (rev 10553) +++ trunk/cgi-bin/ljlib-local.pl 2011-05-24 04:09:17 UTC (rev 10554) @@ -1,5 +1,5 @@ -#!/usr/bin/perl -# +package LJ::LJcom; +use strict; use lib "$ENV{LJHOME}/cgi-bin"; require "ljcom.pl"; Modified: trunk/cgi-bin/paylib.pl =================================================================== --- trunk/cgi-bin/paylib.pl 2011-05-24 04:07:09 UTC (rev 10553) +++ trunk/cgi-bin/paylib.pl 2011-05-24 04:09:17 UTC (rev 10554) @@ -1,3 +1,6 @@ +package LJ::Pay; +use strict; + ########################################## ## paylib.pl now is a cgi-bin/LJ/Pay.pm ## ##########################################