Parent Directory | Revision Log | Patch
revision 13 by dpavlin, Tue Sep 22 10:32:59 2009 UTC | revision 14 by dpavlin, Tue Sep 22 10:40:32 2009 UTC | |
---|---|---|
# | Line 38 BEGIN { | Line 38 BEGIN { |
38 | chomp( my $pwd = `pwd` ); | chomp( my $pwd = `pwd` ); |
39 | $prefix = "$pwd/$prefix"; | $prefix = "$pwd/$prefix"; |
40 | } | } |
41 | $prefix =~ s{^(.+)/srv/Sack/bin.+$}{$1}; | $prefix =~ s{^(.*)/srv/Sack/bin.+$}{$1}; |
42 | warn "# prefix $prefix"; | warn "# prefix $prefix"; |
43 | } | } |
44 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |