[Collab-qa-commits] r665 - svnbuildstat/trunk/script

goneri-guest at alioth.debian.org goneri-guest at alioth.debian.org
Sun Jan 20 21:31:13 UTC 2008


Author: goneri-guest
Date: 2008-01-20 21:31:13 +0000 (Sun, 20 Jan 2008)
New Revision: 665

Modified:
   svnbuildstat/trunk/script/svnbuildstat_update-repository.pl
Log:
indentation

Modified: svnbuildstat/trunk/script/svnbuildstat_update-repository.pl
===================================================================
--- svnbuildstat/trunk/script/svnbuildstat_update-repository.pl	2008-01-20 21:30:52 UTC (rev 664)
+++ svnbuildstat/trunk/script/svnbuildstat_update-repository.pl	2008-01-20 21:31:13 UTC (rev 665)
@@ -164,21 +164,21 @@
     `mkdir -p $destdir` unless -d $destdir;
     my $dscfile;
     foreach my $file (bsd_glob($workdir.'/*')) {
-                                           next unless -f $file;
-                                           $dscfile = basename($file) if $file =~ /\.dsc/;
-                                           move ($file, $destdir);
-                                           }
-                                           if (!$dscfile) {
-                                                debug ("dpkg-source failed, can't find the .dsc for ".$$repositoryentry->sourcepackage_id->name);
-                                                return;
-                                           }
+        next unless -f $file;
+        $dscfile = basename($file) if $file =~ /\.dsc/;
+        move ($file, $destdir);
+    }
+    if (!$dscfile) {
+        debug ("dpkg-source failed, can't find the .dsc for ".$$repositoryentry->sourcepackage_id->name);
+        return;
+    }
 
-                                           my $dscuri = '@REPOSITORY_URL@/'.$$repositoryentry->repository_id->team_id->shortname.'/'.$$repositoryentry->sourcepackage_id->name.'/'.$$repositoryentry->changelogentry_id->id.'/'.$dscfile;
-                                           $$repositoryentry->changelogentry_id->dscuri($dscuri);
-                                           $$repositoryentry->changelogentry_id->update;
-                                           `rm -Rf $workdir`;
-                                           1;
-                                           }
+    my $dscuri = '@REPOSITORY_URL@/'.$$repositoryentry->repository_id->team_id->shortname.'/'.$$repositoryentry->sourcepackage_id->name.'/'.$$repositoryentry->changelogentry_id->id.'/'.$dscfile;
+    $$repositoryentry->changelogentry_id->dscuri($dscuri);
+    $$repositoryentry->changelogentry_id->update;
+    `rm -Rf $workdir`;
+    1;
+}
 
 ##########################################
 ##########################################




More information about the Collab-qa-commits mailing list