Changeset 17118
- Timestamp:
- 2008-09-01T13:05:47+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/bin/script/buildcol.pl
r16788 r17118 734 734 { 735 735 my ($base_dir, $dir) = @_; 736 $dir = $base_dir . "/$dir" if ($dir =~ m#^[^/]#); 736 $dir =~ s/[\\\/]+/\//g; 737 $dir = $base_dir . "/$dir" unless ($dir =~ m#^(\w:)?/#); 737 738 $dir =~ s|^/tmp_mnt||; 738 739 1 while($dir =~ s|/[^/]*/\.\./|/|g);
Note:
See TracChangeset
for help on using the changeset viewer.