diff options
Diffstat (limited to 'qt5/fix-webkit')
-rw-r--r-- | qt5/fix-webkit | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/qt5/fix-webkit b/qt5/fix-webkit index 3e6fb47..813b203 100644 --- a/qt5/fix-webkit +++ b/qt5/fix-webkit @@ -1,6 +1,10 @@ #!/usr/bin/perl use Cwd; +use Cwd 'abs_path'; +use File::Basename; +use File::Path; + # Find SHA1 of commit before $subject, else empty string sub findWebKitSHA1 @@ -17,8 +21,9 @@ sub findWebKitSHA1 return ""; } -my $current = getcwd(); -chdir("qtwebkit"); +my $current = dirname(abs_path($0)); +$current =~ s,\\,/,g; +chdir("$current/qtwebkit"); if (!findWebKitSHA1("Removed modular references after support for the flag was removed")) { if (system("git am --ignore-whitespace $current/patches/qtwebkit/*.patch")) { |