[prev in list] [next in list] [prev in thread] [next in thread] 

List:       svk-commit
Subject:    [svk-commit] r3047 - trunk/pkg
From:       nobody () bestpractical ! com
Date:       2008-08-01 21:52:24
Message-ID: 20080801215226.E073D4D8373 () diesel ! bestpractical ! com
[Download RAW message or body]

Author: clkao
Date: Fri Aug  1 17:52:21 2008
New Revision: 3047

Modified:
   trunk/pkg/buildsvk.pl

Log:
must have svn_version as constant

Modified: trunk/pkg/buildsvk.pl
==============================================================================
--- trunk/pkg/buildsvk.pl	(original)
+++ trunk/pkg/buildsvk.pl	Fri Aug  1 17:52:21 2008
@@ -295,7 +295,7 @@
 use File::Spec;
 use File::Copy 'move';
 
-my $svn_version = '1.5.0';
+use constant svn_version => '1.5.0';
 
 sub build_dir {
     'c:/tmp/svk-build';
@@ -339,14 +339,13 @@
     my $self = shift;
     return 1 if -e File::Spec->catfile($self->build_dir, 'strawberry-perl', 'perl', \
'lib', 'SVN' );  
-    $self->extract("svn-win32-${svn_version}.zip");
-    $self->extract("svn-win32-${svn_version}_pl.zip");
+    $self->extract("svn-win32-@{[svn_version]}.zip");
+    $self->extract("svn-win32-@{[svn_version]}_pl.zip");
 
-    my $svnperl = File::Spec->catfile($self->build_dir, "svn-win32-$svn_version", \
'perl', 'site', 'lib' ); +    my $svnperl = File::Spec->catfile($self->build_dir, \
"svn-win32-@{[svn_version]}", 'perl', 'site', 'lib' );  
     my $strperl = File::Spec->catfile($self->build_dir, 'strawberry-perl', 'perl', \
'lib' );  
-warn "$svnperl / $strperl";
     rename(File::Spec->catfile($svnperl, "SVN") =>
 	   File::Spec->catfile($strperl, "SVN")) or die $!;
 
@@ -354,9 +353,9 @@
 	   File::Spec->catfile($strperl, "auto", "SVN")) or die $!;
 
     move($_ => File::Spec->catfile($self->build_dir, 'strawberry-perl', 'perl', \
                'bin'))
-	for glob($self->build_dir."/svn-win32-$svn_version/bin/*.dll");
+	for glob($self->build_dir."/svn-win32-@{[svn_version]}/bin/*.dll");
 
-    move($self->build_dir."/svn-win32-$svn_version/iconv" => \
File::Spec->catfile($self->build_dir, 'strawberry-perl', 'iconv')) +    \
move($self->build_dir."/svn-win32-@{[svn_version]}/iconv" => \
File::Spec->catfile($self->build_dir, 'strawberry-perl', 'iconv'))  }
 
 sub prepare_dist {
_______________________________________________
svk-commit mailing list
svk-commit@bestpractical.com
http://lists.bestpractical.com/cgi-bin/mailman/listinfo/svk-commit


[prev in list] [next in list] [prev in thread] [next in thread]