Author: paultcochrane
Date: Wed Apr 11 07:58:04 2007
New Revision: 18137
Modified:
trunk/lib/Parrot/Configure/Messages.pm
trunk/lib/Parrot/Configure/Options.pm
trunk/lib/Parrot/Distribution.pm
Log:
[lib] Removed trailing whitespace
Modified: trunk/lib/Parrot/Configure/Messages.pm
==============================================================================
--- trunk/lib/Parrot/Configure/Messages.pm (original)
+++ trunk/lib/Parrot/Configure/Messages.pm Wed Apr 11 07:58:04 2007
@@ -80,7 +80,7 @@
=item * Arguments
-One argument: String holding the Parrot version number (currently supplied by
+One argument: String holding the Parrot version number (currently supplied by
C<Parrot::BuildUtil::parrot_version()>).
=item * Return Value
Modified: trunk/lib/Parrot/Configure/Options.pm
==============================================================================
--- trunk/lib/Parrot/Configure/Options.pm (original)
+++ trunk/lib/Parrot/Configure/Options.pm Wed Apr 11 07:58:04 2007
@@ -36,17 +36,17 @@
my ( $key, $value ) = m/--([-\w]+)(?:=(.*))?/;
$key = 'help' unless defined $key;
$value = 1 unless defined $value;
-
+
unless ( grep $key eq $_, @valid_opts ) {
die qq/Invalid option $key. See "perl Configure.pl --help" for
valid options\n/;
}
-
+
for ($key) {
if ($key =~ m/version/) {
print_version_info($optionsref);
return;
}
-
+
if ($key =~ m/help/) {
print_help($optionsref);
return;
@@ -54,7 +54,7 @@
$args{$key} = $value;
}
}
-
+
$args{debugging} = 1
unless ( ( exists $args{debugging} ) && !$args{debugging} );
$args{maintainer} = 1 if defined $args{lex} or defined $args{yacc};
@@ -205,7 +205,7 @@
argv => [ @ARGV ],
script => $0,
parrot_version => $parrot_version,
- svnid =>
+ svnid =>
'$Id$',
} );
@@ -213,7 +213,7 @@
=head1 DESCRIPTION
-Parrot::Configure::Options exports on demand two subroutines:
+Parrot::Configure::Options exports on demand two subroutines:
C<process_options()>, which processes the command-line options provided to
F<Configure.pl>; and C<get_valid_options()>, which returns the list of
currently valid options.
@@ -246,7 +246,7 @@
script : Perl's $0: the calling program;
defaults to 'Configure.pl'
parrot_version : string holding Parrot version number
- (currently supplied by
+ (currently supplied by
Parrot::BuildUtil::parrot_version())
svnid : string holding Subversion Id string
Modified: trunk/lib/Parrot/Distribution.pm
==============================================================================
--- trunk/lib/Parrot/Distribution.pm (original)
+++ trunk/lib/Parrot/Distribution.pm Wed Apr 11 07:58:04 2007
@@ -703,10 +703,10 @@
# directories only...
-d $_
} map {
- # extract directory component, if any
+ # extract directory component, if any
my $dir = ( File::Spec->splitpath($_) )[1];
} map {
- # strip off any .svn components.
+ # strip off any .svn components.
# (lets us match dirs with no versioned files)
s/\.svn.*//;
$_;
@@ -728,7 +728,7 @@
foreach my $pattern ( @patterns_list ) {
next if $pattern =~ m/^\s*$/;
-
+
if ($pattern =~ s/^(.*?) - //) {
$dir = $1;
if ($dir eq ".") {
