Changeset 15644

Timestamp:

Nov 16, 2007, 4:20:39 PM (18 years ago)

Author:

Paul Price

Message:

Updating code to get the scheme.

File:

• trunk/ippScripts/scripts/warp_overlap.pl (modified) (2 diffs)

trunk/ippScripts/scripts/warp_overlap.pl

@@ -29 +29 @@
                        metadataLookupBool
                        caturi
+                       file_scheme
                        );
 my $ipprc = PS::IPP::Config->new(); # IPP configuration
@@ -114 +115 @@
     foreach my $tess_id ( keys %$tessellations ) {
         ### Because DVO doesn't use psModules, it doesn't understand Nebulous --- check
-        my ($scheme) = $$tessellations{$tess_id} =~ m|^(\S+):|; # The scheme, e.g., file://, path://
+        my $scheme = file_scheme($$tessellations{$tess_id}); # The scheme, e.g., file, path, neb
         if (defined $scheme and lc($scheme) eq 'neb') {
             &my_die("Tessellation $tess_id refers to a Nebulous path: $$tessellations{$tess_id}", $warp_id, $PS_EXIT_CONFIG_ERROR);