Update of /cvsroot/fink/fink/perlmod/Fink/SelfUpdate
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv31419/SelfUpdate
Modified Files:
Tag: selfupdate_classes
rsync.pm
Log Message:
Overhaul use of VERSION file
Index: rsync.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/SelfUpdate/Attic/rsync.pm,v
retrieving revision 1.1.2.8
retrieving revision 1.1.2.9
diff -u -d -r1.1.2.8 -r1.1.2.9
--- rsync.pm 8 Mar 2007 17:21:57 -0000 1.1.2.8
+++ rsync.pm 20 Mar 2007 00:25:07 -0000 1.1.2.9
@@ -212,46 +212,12 @@
}
$class->stamp_set();
- $class->setup_version_file("$basepath/fink/$dist/VERSION");
# cleanup after ourselves
unlink "$descdir/TIMESTAMP";
rename "$descdir/TIMESTAMP.tmp", "$descdir/TIMESTAMP";
}
-=item setup_version_file
-
- Fink::SelfUpdate::rsync->setup_version_file($filename);
-
-Marks the VERSION file specified by $filename to indicate use of the
-rsync method instead of the cvs method. The VERSION file itself seems
-to be in CVS, with the cvs indicator. Not sure what happens if the
-file comes from somewhere else originally...need a more canonical way
-to format/locate/process this file.
-
-=cut
-
-sub setup_version_file {
- my $class = shift;
- my $filename = shift;
-
- my $filetemp = "$filename.tmp";
-
- if (-f $filename) {
- open my $orig_FH, '<', $filename or die "can't read $filename:
$!\n";
- open my $temp_FH, '>', $filetemp or die "can't write
$filetemp: $!\n";
- while (<$orig_FH>) {
- chomp;
- $_ =~ s/cvs/rsync/;
- print $temp_FH "$_\n";
- }
- close $temp_FH;
- close $orig_FH;
- unlink $filename;
- rename $filetemp, $filename;
- }
-}
-
=head2 Private Methods
None yet.
-------------------------------------------------------------------------
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
