Changeset 13641 for trunk/ippScripts/scripts/warp_overlap.pl

Timestamp:

Jun 5, 2007, 9:37:20 AM (19 years ago)

Author:

Paul Price

Message:

Removing use of the URI module.

File:

• trunk/ippScripts/scripts/warp_overlap.pl (modified) (1 diff)

trunk/ippScripts/scripts/warp_overlap.pl

@@ -92 +92 @@
     foreach my $tess_id ( keys %$tessellations ) {
         ### Because DVO doesn't use psModules, it doesn't understand Nebulous --- check
-        my $uri = URI->new( $$tessellations{$tess_id} );
-        if (defined $uri->scheme() and $uri->scheme() eq 'neb') {
+        my ($scheme) = $$tessellations{$tess_id} =~ m|^(\S+):|; # The scheme, e.g., file://, path://
+        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);
-        }                   
+        }
         
         my $tess_dir = $ipprc->convert_filename_absolute( $$tessellations{$tess_id} ); # Catdir for DVO