URI-1.04 Patch for QNX

[Norton Allen]

Greetings,

  I humbly submit the following as a patch to support the
  slightly unfamiliar nature of full path names under QNX.
  I would be happy to entertain any suggestions.
  
    -Norton Allen

----------------------------------------------------------------
touch URI/file/QNX.pm
exit 0
=============

*** URI-1.04.ORIG/URI/file/QNX.pm       Tue Feb  8 10:20:09 2000
--- URI-1.04/URI/file/QNX.pm    Tue Feb  8 10:14:02 2000
***************
*** 1,0 ****
--- 1,18 ----
+ package URI::file::QNX;
+ 
+ require URI::file::Unix;
+ @ISA=qw(URI::file::Unix);
+ 
+ use strict;
+ 
+ sub extract_path
+ {
+     my($class, $path) = @_;
+     # tidy path
+     $path =~ s,(.)//+,$1/,g; # ^// is correct
+     $path =~ s,(/\.)+/,/,g;
+     $path = "./$path" if $path =~ m,^[^:/]+:,,; # look like "scheme:"
+     $path;
+ }
+ 
+ 1;
*** URI-1.04.ORIG/URI/file.pm   Mon Aug  2 18:40:44 1999
--- URI-1.04/URI/file.pm        Tue Feb  8 10:18:08 2000
***************
*** 16,21 ****
--- 16,22 ----
       win32   => "Win32",
       msdos   => "FAT",
       dos     => "FAT",
+      qnx     => "QNX",
  );
  
  sub os_class
*** URI-1.04.ORIG/t/old-base.t  Thu Jul 22 08:08:12 1999
--- URI-1.04/t/old-base.t       Tue Feb  8 00:03:09 2000
***************
*** 633,640 ****
      return 1 if $^O eq "MacOS";
      
      print "newlocal_test:\n";
!     my $pwd = ($^O eq 'MSWin32' ? 'cd' : (-e '/bin/pwd' ? '/bin/pwd' : 'pwd'));
      my $tmpdir = ($^O eq 'MSWin32' ? $ENV{TEMP} : '/tmp');
      $tmpdir =~ tr|\\|/|;
  
      my $savedir = `$pwd`;     # we don't use Cwd.pm because we want to check
--- 633,646 ----
      return 1 if $^O eq "MacOS";
      
      print "newlocal_test:\n";
!     my $pwd = ($^O eq 'MSWin32' ? 'cd' :
!         ($^O eq 'qnx' ? '/usr/bin/fullpath -t' :
!           (-e '/bin/pwd' ? '/bin/pwd' : 'pwd')));
      my $tmpdir = ($^O eq 'MSWin32' ? $ENV{TEMP} : '/tmp');
+       if ( $^O eq 'qnx' ) {
+         $tmpdir = `/usr/bin/fullpath -t $tmpdir`;
+         chomp $tmpdir;
+       }
      $tmpdir =~ tr|\\|/|;
  
      my $savedir = `$pwd`;     # we don't use Cwd.pm because we want to check