X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FUtils.pm;h=9f602f6acfba61e52750b4638646644aa13e77f6;hb=b3b39a59c337db57a9df0246635bb9364c0948cc;hp=9fb1e920b28f0be5b60b72a4eb07c176cea7ff56;hpb=e39312ba37f13fad13d7f1acf967e40dea096278;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Utils.pm b/lib/Catalyst/Utils.pm index 9fb1e92..9f602f6 100644 --- a/lib/Catalyst/Utils.pm +++ b/lib/Catalyst/Utils.pm @@ -413,11 +413,14 @@ sub term_width { } else { warn "There was an error trying to detect your terminal size: $@\n"; } + }; + + unless ($width) { warn 'Trouble trying to detect your terminal size, looking at $ENV{COLUMNS}'."\n"; $width = $ENV{COLUMNS} if exists($ENV{COLUMNS}) && $ENV{COLUMNS} =~ m/^\d+$/; - }; + } do { warn "Cannot determine desired terminal width, using default of 80 columns\n"; @@ -510,7 +513,7 @@ Used to add components at runtime: into The Catalyst package to inject into (e.g. My::App) component The component package to inject - traits (Optional) ArrayRef of Ls that the componet should consume. + traits (Optional) ArrayRef of Ls that the component should consume. as An optional moniker to use as the package name for the derived component For example: