[svk-commit] r3047 - trunk/pkg

nobody at bestpractical.com nobody at bestpractical.com
Fri Aug 1 17:52:24 EDT 2008


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 {


More information about the svk-commit mailing list