Update of /cvsroot/fink/fink/perlmod/Fink
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9007/perlmod/Fink

Modified Files:
        ChangeLog Package.pm 
Log Message:
Indexing doesn't break now.


Index: Package.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/Package.pm,v
retrieving revision 1.111
retrieving revision 1.112
diff -u -d -r1.111 -r1.112
--- Package.pm  21 Apr 2005 19:38:55 -0000      1.111
+++ Package.pm  21 Apr 2005 21:11:54 -0000      1.112
@@ -727,7 +727,7 @@
 Create Fink::PkgVersion objects based on a hash-ref of properties. Do not
 yet add these packages to the current package database.
 
-Returns all packages created, including split-offs.
+Returns all packages created, including split-offs if this is a parent package.
 
 =cut
 
@@ -789,7 +789,13 @@
        
        my $pkgversion = Fink::PkgVersion->new_from_properties($properties);
        
-       return $pkgversion->get_splitoffs(1, 1);
+       # Only return splitoffs for the parent. Otherwise, 
PkgVersion::add_splitoff
+       # goes crazy.
+       if ($pkgversion->has_param('parent')) { # It's a splitoff
+               return ($pkgversion);
+       } else {                                                                
# It's a parent
+               return $pkgversion->get_splitoffs(1, 1);
+       }
 }
 
 =item insert_pkgversions

Index: ChangeLog
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/ChangeLog,v
retrieving revision 1.944
retrieving revision 1.945
diff -u -d -r1.944 -r1.945
--- ChangeLog   21 Apr 2005 19:38:55 -0000      1.944
+++ ChangeLog   21 Apr 2005 21:11:54 -0000      1.945
@@ -1,5 +1,9 @@
 2005-04-21  Dave Vasilevsky  <[EMAIL PROTECTED]>
 
+       * Package.pm: Indexing doesn't break now.
+
+2005-04-21  Dave Vasilevsky  <[EMAIL PROTECTED]>
+
        * Package.pm: More cleanup.
 
 2005-04-21  Dave Vasilevsky  <[EMAIL PROTECTED]>



-------------------------------------------------------
SF email is sponsored by - The IT Product Guide
Read honest & candid reviews on hundreds of IT Products from real users.
Discover which products truly live up to the hype. Start reading now.
http://ads.osdn.com/?ad_id=6595&alloc_id=14396&op=click
_______________________________________________
Fink-commits mailing list
Fink-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/fink-commits

Reply via email to