Changeset 39792 for branches/czw_branch/20160809/Nebulous/bin/neb-repair
- Timestamp:
- Oct 26, 2016, 6:15:48 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/czw_branch/20160809/Nebulous/bin/neb-repair
r39506 r39792 167 167 my $name = shift; # Filename for which to get the scheme 168 168 my ($scheme) = $name =~ /^(path|neb|file):/; # The scheme, e.g., file://, path:// 169 if undef $scheme { $scheme = "none"; }169 # if undef $scheme { $scheme = "none"; } 170 170 # $scheme may be undef if the input doesn't contain one of the above recognised schemes 171 171 unless (defined($scheme)) { $scheme = "none"; }
Note:
See TracChangeset
for help on using the changeset viewer.
