Skip to content

Instantly share code, notes, and snippets.

@tadzik
Created August 6, 2011 21:22
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save tadzik/1129758 to your computer and use it in GitHub Desktop.
Save tadzik/1129758 to your computer and use it in GitHub Desktop.
diff --git a/lib/Parrot/Configure/Options.pm b/lib/Parrot/Configure/Options.pm
index fe88706..09fc8a5 100644
--- a/lib/Parrot/Configure/Options.pm
+++ b/lib/Parrot/Configure/Options.pm
@@ -92,6 +92,9 @@ sub _initial_pass {
unless ( $valid_opts{$key} ) {
die qq/Invalid option "$key". See "perl $script --help" for valid options\n/;
}
+ if ( $key eq 'prefix' and $value !~ m[^/]) {
+ $value = $ENV{PWD} . '/' . $value;
+ }
if ( $options_components->{short_circuits}{$key} ) {
push @short_circuits_seen, $key;
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment