r6705 - /scripts/qa/versioncheck2.pl

dmn at users.alioth.debian.org dmn at users.alioth.debian.org
Thu Aug 16 06:19:14 UTC 2007


Author: dmn
Date: Thu Aug 16 06:19:14 2007
New Revision: 6705

URL: http://svn.debian.org/wsvn/?sc=1&rev=6705
Log:
Declare $svn globally and initialize it once

Modified:
    scripts/qa/versioncheck2.pl

Modified: scripts/qa/versioncheck2.pl
URL: http://svn.debian.org/wsvn/scripts/qa/versioncheck2.pl?rev=6705&op=diff
==============================================================================
--- scripts/qa/versioncheck2.pl (original)
+++ scripts/qa/versioncheck2.pl Thu Aug 16 06:19:14 2007
@@ -38,6 +38,7 @@
 my $force_cpan = 0;
 my $force_rescan = 0;
 our $CACHEDIR = "$ENV{HOME}/.dpg/versioncheck";
+our $svn = SVN::Client->new();
 
 GetOptions(
     'debug!'         => \$opt_debug,
@@ -530,7 +531,6 @@
 
     my $changelog;
     my $svn_error;
-    my $svn = SVN::Client->new();
     {
         my $changelog_fh = IO::Scalar->new( \$changelog );
         local $SVN::Error::handler = undef;
@@ -575,7 +575,6 @@
     debugmsg("Retrieving watch for $dir\n" );
 
     my $svn_error;
-    my $svn = SVN::Client->new();
     my $watch;
     {
         my $watch_io = IO::Scalar->new(\$watch);
@@ -699,7 +698,6 @@
 my $chunk;
 
 # loop over packages
-my $svn = SVN::Client->new();
 my @svn_packages = sort(keys(%{$svn->ls("$SVN_REPO/trunk", 'HEAD', 0)}));
 my $cur_ver;
 $svn->info("$SVN_REPO/trunk", undef, "HEAD", sub {




More information about the Pkg-perl-cvs-commits mailing list