[LON-CAPA-cvs] cvs: modules /sharrison/autocpan make_cpanauto.pl

[harris41]

harris41		Wed Sep 11 14:02:19 2002 EDT

  Modified files:              
    /modules/sharrison/autocpan	make_cpanauto.pl 
  Log:
  convert underscore to dash...
  
  
Index: modules/sharrison/autocpan/make_cpanauto.pl
diff -u modules/sharrison/autocpan/make_cpanauto.pl:1.3 modules/sharrison/autocpan/make_cpanauto.pl:1.4
--- modules/sharrison/autocpan/make_cpanauto.pl:1.3	Wed Sep 11 12:29:00 2002
+++ modules/sharrison/autocpan/make_cpanauto.pl	Wed Sep 11 14:02:19 2002
@@ -1,7 +1,7 @@
 # make_cpanauto.pl - compiles self-extracting binaries
 
 # Scott Harrison, sharrison@users.sourceforge.net, 2002
-# $Id: make_cpanauto.pl,v 1.3 2002/09/11 16:29:00 harris41 Exp $
+# $Id: make_cpanauto.pl,v 1.4 2002/09/11 18:02:19 harris41 Exp $
 
 # This currently is a placeholder that will eventually implement the
 # new CPAN RPM distribution strategy.
@@ -30,8 +30,8 @@
     my ($dist_name)=split(/\s+/);
     my $sdist_name=$dist_name;
 #    $sdist_name=~s/\-/\_/g;
-    my $cpansrc=`ls cpansrc_${sdist_name}-*`; chomp($cpansrc);
-    my $cpanbuild=`ls cpanbuild_${sdist_name}-*`; chomp($cpanbuild);
+    my $cpansrc=`ls cpansrc-${sdist_name}-*`; chomp($cpansrc);
+    my $cpanbuild=`ls cpanbuild-${sdist_name}-*`; chomp($cpanbuild);
     `shar -s sharrison\@users.sourceforge.net $cpansrc $cpanbuild > $sdir/${dist_name}.bintmp`;
     my $wc=`wc -l $sdir/${dist_name}.bintmp`; $wc=~s/\s*(\d+).*/$1/;
     $wcm=$wc-1;