comparison index.cgi.pl @ 5:46d936853422

un used DDP module
author Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Tue, 07 May 2019 06:37:31 +0900
parents c168b4b36ea3
children 5b8f7c3dd929
comparison
equal deleted inserted replaced
4:c168b4b36ea3 5:46d936853422
1 #!/usr/bin/env perl 1 #!/usr/bin/env perl
2 use strict; 2 use strict;
3 use warnings; 3 use warnings;
4
5 use DDP;
6 4
7 my ($tartget_hg_version,) = map{ m|/usr/local/Cellar/mercurial/(.*)|; $1} glob "/usr/local/Cellar/mercurial/*"; 5 my ($tartget_hg_version,) = map{ m|/usr/local/Cellar/mercurial/(.*)|; $1} glob "/usr/local/Cellar/mercurial/*";
8 6
9 while (my $line = <DATA>){ 7 while (my $line = <DATA>){
10 if ($line =~ /^(?!#)sys\.path\.insert/) { 8 if ($line =~ /^(?!#)sys\.path\.insert/) {