Changeset 20 in ProjectBuilder for devel/pb/bin

Timestamp:

Jul 31, 2007, 2:20:01 AM (17 years ago)

Author:

Bruno Cornec

Message:

Content looks fine now

File:

• devel/pb/bin/pb.pl (modified) (1 diff)

devel/pb/bin/pb.pl

@@ -299 +299 @@
             eval { $tmp =~ s/(\$\w+)/$1/eeg };
         # special case for ChangeLog
-        } elsif (($tmp =~ /^yes$/) && ($s =~ /^PBLOG$/)) {
+        } elsif (($tmp =~ /^yes$/) && ($s =~ /^PBLOG$/) && ($line =~ /^PBLOG$/)) {
             my $p = $defpkgdir{$pkg};
             $p = $extpkgdir{$pkg} if (not defined $p);
-            $tmp = changelog($dtype, $pkg, $pbtag, $dsuf, $p, \*DEST);
+            changelog($dtype, $pkg, $pbtag, $dsuf, $p, \*DEST);
+            $tmp = "";
         }
         $line =~ s|$s|$tmp|;