You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2004/11/02 00:52:20 UTC
cvs commit: modperl-2.0/lib/Apache Build.pm
stas 2004/11/01 15:52:20
Modified: lib/Apache Build.pm
Log:
- sort the keys of Apache::BuildConfig so it's easier to study and compare
bug reports
- compress a bit the Data::Dumper dump
Revision Changes Path
1.187 +6 -2 modperl-2.0/lib/Apache/Build.pm
Index: Build.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/lib/Apache/Build.pm,v
retrieving revision 1.186
retrieving revision 1.187
diff -u -u -r1.186 -r1.187
--- Build.pm 26 Sep 2004 07:06:23 -0000 1.186
+++ Build.pm 1 Nov 2004 23:52:20 -0000 1.187
@@ -788,7 +788,8 @@
sub freeze {
require Data::Dumper;
- local $Data::Dumper::Terse = 1;
+ local $Data::Dumper::Terse = 1;
+ local $Data::Dumper::Sortkeys = 1;
my $data = Data::Dumper::Dumper(shift);
chomp $data;
$data;
@@ -818,7 +819,10 @@
$file ||= $self->default_file('build_config');
$file = $self->file_path($file);
- (my $obj = $self->freeze) =~ s/^/ /;
+ my $obj = $self->freeze;
+ $obj =~ s/^\s{9}//mg;
+ $obj =~ s/^/ /;
+
open my $fh, '>', $file or die "open $file: $!";
#work around autosplit braindeadness