From 18c28bb9a2147e662755e393d1ec39f270948d30 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ville=20Skytt=C3=A4?= <ville.skytta@iki.fi>
Date: Sun, 19 May 2013 22:32:56 +0300
Subject: [PATCH] perl*: Fix handling of relative paths in @INC.

---
 helpers/perl | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/helpers/perl b/helpers/perl
index f847dc74..8d44235a 100644
--- a/helpers/perl
+++ b/helpers/perl
@@ -2,6 +2,7 @@
 
 use strict;
 use Config;
+use Cwd;
 use File::Spec::Functions;
 
 my %seen;
@@ -47,8 +48,10 @@ sub print_modules_real {
 sub print_modules {
     my ($word) = @_;
 
+    my $origdir = getcwd;
     foreach my $directory (@INC) {
         print_modules_real(undef, $directory, $word);
+        chdir $origdir;
     }
 }