[interchange-cvs] interchange - heins modified lib/Vend/Page.pm
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Thu Apr 8 23:16:22 EDT 2004
User: heins
Date: 2004-04-09 03:16:22 GMT
Modified: lib/Vend Page.pm
Log:
* Make some inroads against whitespace pollution in the named output model.
Revision Changes Path
2.20 +3 -2 interchange/lib/Vend/Page.pm
rev 2.20, prev_rev 2.19
Index: Page.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Page.pm,v
retrieving revision 2.19
retrieving revision 2.20
diff -u -r2.19 -r2.20
--- Page.pm 8 Apr 2004 19:49:51 -0000 2.19
+++ Page.pm 9 Apr 2004 03:16:22 -0000 2.20
@@ -1,6 +1,6 @@
# Vend::Page - Handle Interchange page routing
#
-# $Id: Page.pm,v 2.19 2004/04/08 19:49:51 jon Exp $
+# $Id: Page.pm,v 2.20 2004/04/09 03:16:22 mheins Exp $
#
# Copyright (C) 2002-2003 Interchange Development Group
# Copyright (C) 1996-2002 Red Hat, Inc.
@@ -46,7 +46,7 @@
use vars qw/$VERSION/;
-$VERSION = substr(q$Revision: 2.19 $, 10);
+$VERSION = substr(q$Revision: 2.20 $, 10);
my $wantref = 1;
@@ -240,6 +240,7 @@
$out .= ${$Vend::Output[$_]};
undef $Vend::Output[$_];
}
+ $out =~ s/^\s+// if $::Pragma->{strip_white};
return $out;
}
More information about the interchange-cvs
mailing list