-#!/usr/bin/perl
use strict;
use warnings;
$m->get_ok("/Admin/Tools/Queries.html");
$m->text_contains("/index.html", "we include info about a page we hit while logging in");
$m->text_contains("Stack:", "stack traces");
-$m->text_like(qr{share/html/autohandler:\d+}, "stack trace includes mason components");
+$m->text_like(qr{/autohandler:\d+}, "stack trace includes mason components");
$m->text_contains("SELECT * FROM Principals WHERE id = '".$root->id."'", "we interpolate bind params");
-