- Fixed the -c command-line switch for when Sidef is actually insta…

…lled.
trizen · Dec 13, 2015 · 8b8c966 · 8b8c966
1 parent 3f52f0f
commit 8b8c966
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/bin/sidef b/bin/sidef
@@ -592,7 +592,7 @@ sub compile_to_perl {
     my (%opt) = @_;
 
     require File::Basename;
-    my $path = File::Basename::dirname($INC{'Sidef.pm'});
+    my $path = File::Spec->catdir(File::Basename::dirname($INC{'Sidef.pm'}), 'Sidef');
 
     my $package_content = <<"HEAD";
 #!$^X
@@ -641,8 +641,8 @@ HEAD
 
                  close $fh;
              }
-         }
-        } => $path
+           }
+        } => ($path, $INC{'Sidef.pm'})
     );
 
     $package_content .= <<'FOOT';