projects
/
dbsrgits/DBIx-Class.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Preserve @_ aliasing semantics on coderefs within try{} blocks
[dbsrgits/DBIx-Class.git]
/
t
/
storage
/
dbh_do.t
diff --git
a/t/storage/dbh_do.t
b/t/storage/dbh_do.t
index
a5a58d6
..
eb8bd20
100644
(file)
--- a/
t/storage/dbh_do.t
+++ b/
t/storage/dbh_do.t
@@
-33,4
+33,10
@@
is_deeply (
[ $storage, $storage->dbh, "baz", "buz" ],
);
+# test aliasing
+my $res = 'original';
+$storage->dbh_do (sub { $_[2] = 'changed' }, $res);
+
+is ($res, 'changed', "Arguments properly aliased for dbh_do");
+
done_testing;