Author: ranger
Date: Fri Nov 17 17:38:40 2006
New Revision: 481
URL:
<http://svn.finkproject.org/websvn/listing.php?sc=1&rev=481&repname=user%3a+ranger>
Log:
handle the case where there is no common/
Modified:
trunk/experimental/tounstable.pl
Modified: trunk/experimental/tounstable.pl
URL:
<http://svn.finkproject.org/websvn/diff.php?path=/trunk/experimental/tounstable.pl&rev=481&repname=user%3a+ranger>
==============================================================================
--- trunk/experimental/tounstable.pl (original)
+++ trunk/experimental/tounstable.pl Fri Nov 17 17:38:40 2006
@@ -29,24 +29,23 @@
warn "$file has an absolute path, skipping\n";
next;
}
+ $file =~ s/^[^\/]+\///;
+
if ($file =~ /\.(info|patch)$/)
{
for my $release ('10.3', '10.4')
{
- my $releasefile = $file;
- $releasefile =~ s,^common/,${release}/,;
+ my $releasefile = "$release/" . $file;
my ($fromfile, $tofile);
if (-f $releasefile)
{
$fromfile = $releasefile;
- $tofile = $releasefile;
- $tofile =~
s,^${release},/sw/fink/${release}/unstable,;
+ $tofile = "$release/" . $file;
}
else
{
$fromfile = $file;
- $tofile = $file;
- $tofile =~
s,^common,/sw/fink/${release}/unstable,;
+ $tofile = "common/" . $file;
}
print "$fromfile => $tofile\n";
copy_file($fromfile, $tofile);
-------------------------------------------------------------------------
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
