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