• R/O
  • SSH
  • HTTPS

globalbase: Commit


Commit MetaInfo

Revisão5973 (tree)
Hora2019-08-16 22:29:22
Autorjoshua

Mensagem de Log

some change for new perl

Mudança Sumário

Diff

--- modules/make.project/trunk/utils/subs/distribution.pl (revision 5972)
+++ modules/make.project/trunk/utils/subs/distribution.pl (revision 5973)
@@ -1,8 +1,8 @@
11 #!/usr/bin/perl
22
33
4-require "utils/subs/routines.pl";
5-require "preference.pl";
4+require "./utils/subs/routines.pl";
5+require "./preference.pl";
66
77 my $ver = $version;
88 $ver =~ s/^\[//;
--- modules/make.project/trunk/utils/subs/install.pl (revision 5972)
+++ modules/make.project/trunk/utils/subs/install.pl (revision 5973)
@@ -1,6 +1,6 @@
11 #!/usr/bin/perl
22
3-require "utils/subs/routines.pl";
3+require "./utils/subs/routines.pl";
44 use Data::Dumper;
55 use strict vars;
66 use strict subs;
@@ -37,6 +37,8 @@
3737 $inp =~ s@([^/])$@$1/@;
3838 $inp =~ s@\+@\\+@g;
3939 $inp =~ s@\$@\\\$@g;
40+ $inp =~ s@\{@\\\{@g;
41+ $inp =~ s@\}@\\\}@g;
4042 foreach ( keys %$basePath ) {
4143 my $path = $_;
4244 $path.= "/";
--- modules/make.project/trunk/utils/subs/uninstall.pl (revision 5972)
+++ modules/make.project/trunk/utils/subs/uninstall.pl (revision 5973)
@@ -1,7 +1,7 @@
11 #!/usr/bin/perl
22
33
4-require "utils/subs/routines.pl";
4+require "./utils/subs/routines.pl";
55
66 my @target;
77
Show on old repository browser