X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Fwith.git;a=blobdiff_plain;f=samples%2Ffuncs.pl;fp=samples%2Ffuncs.pl;h=72a73257a38778b5d4f508bc32af22c424e24628;hp=94a414738c3a579ac7bef09c56f3e41a5367b8c4;hb=5d3ec9b6f2a27ddb9a986a67cd428df2340af986;hpb=bf515118a25a277c189afd490f44d5ea1130f816

diff --git a/samples/funcs.pl b/samples/funcs.pl
index 94a4147..72a7325 100755
--- a/samples/funcs.pl
+++ b/samples/funcs.pl
@@ -14,7 +14,7 @@ my %dup;
       grep { eval { () = prototype "CORE::$_"; 1 } }
        grep !$dup{$_}++, @f;
 my $c = 10;
-my $base = "my \@core = qw/";
+my $base = "my \@core = qw<";
 my $out = $base;
 my $l = length $base;
 my $first = 1;
@@ -34,5 +34,5 @@ for (@f) {
   redo;
  }
 }
-$out .= "/;\n";
+$out .= ">;\n";
 print $out;