[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