[TWiki-Dev] [SVN] PeterThoeny r21350 - twiki/branches/TWikiRelease05x00/TagMePlugin/lib/TWiki/Plugins

[<de...@de...>]

Author: PeterThoeny
Date: 2011-05-26 01:10:23 -0500 (Thu, 26 May 2011)
New Revision: 21350
Trac url: http://develop.twiki.org/trac/changeset/21350

Modified:
   twiki/branches/TWikiRelease05x00/TagMePlugin/lib/TWiki/Plugins/TagMePlugin.pm
Log:
Item6732: Small code refactor

Modified: twiki/branches/TWikiRelease05x00/TagMePlugin/lib/TWiki/Plugins/TagMePlugin.pm
===================================================================
--- twiki/branches/TWikiRelease05x00/TagMePlugin/lib/TWiki/Plugins/TagMePlugin.pm	2011-05-26 06:09:07 UTC (rev 21349)
+++ twiki/branches/TWikiRelease05x00/TagMePlugin/lib/TWiki/Plugins/TagMePlugin.pm	2011-05-26 06:10:23 UTC (rev 21350)
@@ -28,25 +28,38 @@
 use strict;
 
 # =========================
-use vars qw(
-  $web $topic $user $installWeb $VERSION $RELEASE $pluginName $debug
-  $initialized $workAreaDir $attachUrl $logAction $tagLinkFormat 
-  $tagQueryFormat $alphaNum $doneHeader $normalizeTagInput $lineRegex
-  $topicsRegex $action $style $label $header $footer $button
-);
+our $VERSION    = '1.8';
+our $RELEASE    = '2011-05-25';
 
-$VERSION    = '1.8';
-$RELEASE    = '2011-05-25';
-$pluginName = 'TagMePlugin';    # Name of this Plugin
+# =========================
+our $pluginName = 'TagMePlugin';    # Name of this Plugin
+our $initialized = 0;
+our $lineRegex   = "^0*([0-9]+), ([^,]+), (.*)";
+our $tagChangeRequestTopic = 'TagMeChangeRequests';
+our $tagChangeRequestLink = "[[$tagChangeRequestTopic][Tag change requests]]";
+our $web;
+our $topic;
+our $user;
+our $installWeb;
+our $debug;
+our $workAreaDir;
+our $attachUrl;
+our $logAction;
+our $tagLinkFormat;
+our $tagQueryFormat;
+our $alphaNum;
+our $doneHeader;
+our $normalizeTagInput;
+our $topicsRegex;
+our $action;
+our $style;
+our $label;
+our $header;
+our $footer;
+our $button;
 
-$initialized = 0;
-$lineRegex   = "^0*([0-9]+), ([^,]+), (.*)";
-my $tagChangeRequestTopic = 'TagMeChangeRequests';
-my $tagChangeRequestLink =
-  "[[$tagChangeRequestTopic][Tag change requests]]";
-
+# =========================
 BEGIN {
-
     # I18N initialization
     if ( $TWiki::cfg{UseLocale} ) {
         require locale;