]> git.vpit.fr Git - perl/modules/Sub-Prototype-Util.git/commitdiff
Remove trailing whitespace
authorVincent Pit <vince@profvince.com>
Thu, 25 Aug 2011 09:01:16 +0000 (11:01 +0200)
committerVincent Pit <vince@profvince.com>
Thu, 25 Aug 2011 09:01:16 +0000 (11:01 +0200)
lib/Sub/Prototype/Util.pm

index d0026f36180bde09f8d3984e682cdd5452a9b0d6..702d07f2b57c1f14d9b777473cb2eb0bea39399f 100644 (file)
@@ -77,7 +77,7 @@ It croaks if the arguments can't possibly match the required prototype, e.g. whe
 sub flatten {
  my $proto = shift;
  return @_ unless defined $proto;
- my @args; 
+ my @args;
  while ($proto =~ /(\\?)(\[[^\]]+\]|[^\];])/g) {
   my $p = $2;
   if ($1) {
@@ -165,7 +165,7 @@ sub _wrap {
   my $cur = '$_[' . $i . ']';
   if ($ref) {
    if (length $p > 1) {
-    return 'my $r = ' . $opts->{ref} . '(' . $cur . '); ' 
+    return 'my $r = ' . $opts->{ref} . '(' . $cur . '); '
            . join ' els',
               map( {
                "if (\$r eq '" . $reftypes{$_} ."') { "