/[webpac2]/trunk/lib/WebPAC/Normalize.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WebPAC/Normalize.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 591 by dpavlin, Fri Jul 7 21:48:09 2006 UTC revision 592 by dpavlin, Sun Jul 9 15:22:30 2006 UTC
# Line 710  Prefix all values with a string Line 710  Prefix all values with a string
710  =cut  =cut
711    
712  sub prefix {  sub prefix {
713          my $p = shift or die "prefix needs string as first argument";          my $p = shift or return;
714          return map { $p . $_ } grep { defined($_) } @_;          return map { $p . $_ } grep { defined($_) } @_;
715  }  }
716    
Legend:
Removed from v.591  
changed lines
  Added in v.592
  ViewVC Help
Powered by ViewVC 1.1.26