Update of /cvsroot/fink/fink/perlmod/Fink/SelfUpdate
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv2211/SelfUpdate
Modified Files:
Tag: selfupdate_classes
point.pm rsync.pm
Log Message:
Massively overhaul SU::check...headed towards plugin-able format
Index: point.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/SelfUpdate/Attic/point.pm,v
retrieving revision 1.1.2.4
retrieving revision 1.1.2.5
diff -u -d -r1.1.2.4 -r1.1.2.5
--- point.pm 8 Mar 2007 03:12:30 -0000 1.1.2.4
+++ point.pm 8 Mar 2007 07:28:54 -0000 1.1.2.5
@@ -69,11 +69,10 @@
}
my $latest_fink = cat "$srcdir/$currentfink";
chomp($latest_fink);
- if ( ! Fink::SelfUpdate::CVS->stamp_check() and !
Fink::SelfUpdate::rsync->stamp_check() ) {
- # no evidence of cvs or rsync selfupdates, so assume on-disk
- # package descriptions are a point/tarball release, therefore
- # can skip doing another point/tarball release if we already
- # have the latest release version
+ if ($class->stamp_check()) {
+ # on-disk package descriptions are a point/tarball release,
+ # therefore can skip doing another point/tarball release if we
+ # already have the latest release version
my $installed_version = &pkginfo_version();
if (&version_cmp($latest_fink . '-1', '<=', $distribution . '-'
. $installed_version . '-1')) {
print "\n";
@@ -83,9 +82,6 @@
return;
}
}
- Fink::SelfUpdate::CVS->stamp_clear();
- Fink::SelfUpdate::rsync->stamp_clear();
- Fink::SelfUpdate::CVS->clear_metadata();
my $newversion = $latest_fink;
my ($downloaddir, $dir);
@@ -145,6 +141,8 @@
}
}
+### TODO: implement stampfile handling somehow
+
=head2 Private Methods
None yet.
Index: rsync.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/SelfUpdate/Attic/rsync.pm,v
retrieving revision 1.1.2.5
retrieving revision 1.1.2.6
diff -u -d -r1.1.2.5 -r1.1.2.6
--- rsync.pm 8 Mar 2007 03:12:30 -0000 1.1.2.5
+++ rsync.pm 8 Mar 2007 07:28:55 -0000 1.1.2.6
@@ -193,8 +193,6 @@
}
}
- Fink::SelfUpdate::CVS->clear_metadata();
- Fink::SelfUpdate::CVS->stamp_clear();
$class->stamp_set();
$class->setup_version_file("$basepath/fink/$dist/VERSION");
-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys-and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________
Fink-commits mailing list
Fink-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/fink-commits
