[Bps-public-commit] r12668 - pie/branches/named-params/pieplate/PIE-Plate/lib/PIE/Plate/Action

[jesse at bestpractical.com]

Author: jesse
Date: Sat May 24 12:01:15 2008
New Revision: 12668

Modified:
   pie/branches/named-params/pieplate/PIE-Plate/lib/PIE/Plate/Action/RunL.pm

Log:
* args need to be spelled right on the perl side too

Modified: pie/branches/named-params/pieplate/PIE-Plate/lib/PIE/Plate/Action/RunL.pm
==============================================================================
--- pie/branches/named-params/pieplate/PIE-Plate/lib/PIE/Plate/Action/RunL.pm	(original)
+++ pie/branches/named-params/pieplate/PIE-Plate/lib/PIE/Plate/Action/RunL.pm	Sat May 24 12:01:15 2008
@@ -21,7 +21,7 @@
     body => sub {
         my $args = shift;
         my $arg = $args->{'tested-string'};
-        my $regex = $args->{'regex'};
+        my $regex = $args->{'regexp'};
 
         return $arg =~ m/$regex/;
     },