Make sure code examples fit in a 80 columns terminal

[perl/modules/indirect.git] / lib / indirect.pm

diff --git a/lib/indirect.pm b/lib/indirect.pm
index 85353e2646ae6318d6739d012595c86652d4dc30..ff3d34e02b2e8ad8f608f9b22d715a3dcfcad414 100644 (file)
--- a/lib/indirect.pm
+++ b/lib/indirect.pm
@@ -29,8 +29,11 @@ BEGIN {
      use indirect;
      my $y = new Pear; # ok
      {
-      no indirect hook => sub { die "You really wanted $_[0]\->$_[1] at $_[2]:$_[3]" };
-      my $z = new Pineapple 'fresh'; # croaks 'You really wanted Pineapple->new at blurp.pm:13'
+      no indirect hook => sub {
+       die "You really wanted $_[0]\->$_[1] at $_[2]:$_[3]"
+      };
+      # croaks 'You really wanted Pineapple->new at blurp.pm:13'
+      my $z = new Pineapple 'fresh';
      }
     }
     try { ... }; # warns