Use proper paths depending on the OS we're running under

ewaters · May 22, 2012 · 8ca7711 · 8ca7711
1 parent e4fc25e
commit 8ca7711
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/lib/Net/AMQP/Protocol.pm b/lib/Net/AMQP/Protocol.pm
@@ -16,6 +16,7 @@ use Net::AMQP::Common qw(:all);
 use Net::AMQP::Protocol::Base;
 use XML::LibXML;
 use File::Path;
+use File::Spec;
 
 our $VERSION = 0.04;
 our ($VERSION_MAJOR, $VERSION_MINOR, %spec);
@@ -254,14 +255,15 @@ sub full_docs_to_dir {
             my $filename;
 
             if ($format eq 'pod') {
-                $filename = $dir . '/' . $method_class . '.pod';
+                $filename = File::Spec->catfile($dir, $method_class . '.pod');
             }
             elsif ($format eq 'pm') {
-                $filename = $dir . '/' . $method_class . '.pm';
+                $filename = File::Spec->catfile($dir, $method_class . '.pm');
                 $filename =~ s{::}{/}g;
             }
 
-            my ($base_path) = $filename =~ m{^(.+)/[^/]+$};
+            my ($volume, $directories, undef) = File::Spec->splitpath($filename);
+			my $base_path = File::Spec->catfile($volume, $directories);
             -d $base_path || mkpath($base_path) || die "Can't mkpath $base_path: $!";
 
             open my $podfn, '>', $filename or die "Can't open '$filename' for writing: $!";